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** ABOUT MICRO- 88 ** PRGE 1 

EDITOR: Ian Uagg 

ASSOCIATE EDITORS: Peter Hartley, Eddy Paay. 

MICR0-8B is the first Australian monthly magazine devoted entirely to the 
Tandy TRS-80 microcomputer and the Dick Smith System 80. It is available by 
subscription, S24.00 for 12 months or by mail order at S2.50 per copy. A 

cassette containing all the programs in each month's issue is available for an 
additional S3. 50 or a combined annual subscription to both magazine and 

cassette, is available for 560.00. Special bulk purchase rates are also 

available to computer shops etc. Please use the form in this issue to order 
your copy or subscription. 

The purpose of MICRO-88 is to publish software and other information to helpj 
you get the most from your TRS-80 or System 80 and their peripherals. 
MICRO-88 is in no way connected with either the Tandy or Dick Smith 
organisat ions . 

** WE WILL BUY YOUR PROGRAM ** 

Most of the information uie pub I ish is provided by our readers, to uihom we pay 
royalties. An application form containing full details of how you can use 
your TRS-80 or System 80 to earn some extra income is included in every issue. 

** CONTENT ** 

Each month we publ ish at least one appl ications program in Level 1 BASIC, one 
in Level 2 BASIC and one in DISK BASIC (or disk compatible Level 2). We also 
publ ish Utility programs in Level 2 BASIC and Machine Language. At least 
every second issue has an article on hardware modifications or a 
constructional article for a useful peripheral. In addition, we run articles 
on programming techniques both in Assembly Language and BASIC and we prii.t 
letters to the Editor and new product reviews. 

** ADVERTISING ** 

We accept camera ready copy for display advertising at the following rates: 

- FULL PAGE 119cm. wide x 24cm. high) *50.00 

- 1/2 PAGE CIS-cm. wide x 12cm. high) »30.0B 

Classified advertisements are $5.00 for up to 50 words. Advertisements must 
be submitted by the 23rd of each month in order to appear in the following 
month's issue. A Company Order or payment must be included with the 
advert i sement . 

** COPYRIGHT ** 

ftl I the material publ ished in this magazine is under copyright. That means 
that you must not copy it, except for your own use. This appl ies to 

photocopying the magazine itself or making copies of programs on tape or disk. 

** LIABILITY ** 

The programs and other articles in MICRO-88 are published in good faith and we 
do our utmost to ensure that they function as described. However, no 
1 iabil ity can be accepted for the failure of any program or other article to 
function satisfactorily or for any consequential damages arising from their 
use for any purpose whatsoever. 

- OOOOO - 
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***** EDITORIAL ***** PAGE 2 

No doubt you have already noticed this issue's improved presentation. It is 
another sign of the continuing success of MICRO-80, thanks to the support of 
you, our readers. We will continue to improve the standard of our magazine in 
content, appearance and presentation as rapidly as possible. We will also be 
making a determined effort to attract advertising over the coming months. We 
believe that a magazine such as MICRO-80 is incomplete unless it keeps its 
readers informed of relevant products available in the market place. The 

additional revenue from advertising will also help improve the magazine still 
further. You can help us by urging your friends . to take out subscriptions 
and, whenever you reply to an advertisement, tell the suppl ier that you saw 
his product in MICRO-80. 

** SYSTEM 80 ** 

When we launched MICRO-80 it was with the aim of supporting both Tandy's 
TRS-80 and Dick Smith's System 80. Unfortunately, deliveries of the System 80 
have been delayed for several months although we have heard that the first 
machines are now due to be del ivered at the beginning of April . As soon as we 
can get our hands on a machine, we will publish a review of it. We will also 
purchase our own system a the earl iest opportunity so we can check out our 
programs on it. 

To avoid having to write "the Tandy TRS-88 and System 80" time and time aaain 
throughout each issue, we will henceforth ue the generic term * '80 * to 
describe either or both machines. 

** MICRO-80 PRODUCTS ** 

Over the next few months, we will have some exciting announcements to make 
concerning new products in both software and hardware. We have establ ished a 
new business, MICRO-80 PRODUCTS, to handle them and you will see 

advertisements for the first items in this month's issue. 

You will also see a review of the book, LEARNING LEUEL II, by David A. Lien, 
who wrote the USER'S MANUAL FOR LEUEL 1, supplied with their machines by 
Tandy. It is an excel lent book and we have placed a bulk order for it with the 
publisher. David Lien was in Australia recently and told us that the first 
printing of 11000 copies had sold out already and a second printing is now 
underway. This means that there is likely to be a slight delay in deliveries 
but we will accept orders, with payment, on a first-come-first served basis. 
Some time before the next issue is published, we expect to move to new 
premises where we will have a new telephone number, complete with an answering 
machine. We also expect to become an authorised BANKCARD merchant. We will 

then offer a 24 hour telephone order service for subscriptions and products. 
Look for a detailed announcement in next month's issue. 

** POSTAL DELAYS ** 

It has come to our notice that some readers did not receive their February 

issues until well into March, if at all. If you already had a subscription at 
the beginning of February, then your February issue was posted out on 20th 
February. According to Australia Post, all copies should have been delivered 

within five working days ie. by 2?th February. If you have still not received 
your February issue, please write to us and we will send you a replacement and 
make a claim on Australia Post. To help cope with this problem in future. we 
now stamp the date of posting on the back of each mailing sleeve. When you 
receive your copy, check the posting date and, if it is earlier than five 
working days from the date received, complain to Austral ia Post. Perhaps then 
we can speed things up. 

- 00000 - 
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The Rpril 
art icl es : 



issue of MICRO-80 will contain at least the following programs and 



HORSE RACE (LI) 



ONE -ARM BANDIT (LI) 



KRAZY KAT (L2) 



Al I the fun and excitement of a day at the 
races, complete with course and mowing 
horses, and a running race cal 1 to boot. 
An odds on favourite in anyone' s book. \ \ 

Las Vegas here we come! Select the size of 
your bet and the '80 will do the rest., 
complete with tumbl ing wheels and even a 
moving handle. A real jackpot - this one. 

You control the cat. the computer contols 
the mouse, and there' s a maze between the two 
Offers eight different situations and three 
levels of skill. Fun for all from 7 to 70! 



ONE-ARM BANDIT ( L2 ) - 



MOVIE -MAKER (L2) 



B MOW - Part 3 
m/c I anguage 



LOWER CASE MOD. 



This program does for Level Z machines 

what the above program does for Level 1 machines, 

just the Authors are different. Now you can lose 

your money whatever system you use 1 . 

If you 1 ike to write programs which employ 
moving graphics, then this utility program, 
written in BASIC, is just what you have been 
looking for. We guarantee that you will not find 
a way to make faster graphics in less program space, 
unless you write in machine language. 

The final part of this great ut i 1 ity program 
This program, coupled with M0U1E-MAKER, 
will save you hours of programm ing time. 

This is the same lower case mod. that we at 

MICRO-80 use on our own computer. It wil I enable 

you to display lower case letters and a whole bevy 

of new symbols on your screen and print them 

on your printer (if it supports lower case. 

As usual , the hardware is only as good as the 

software that drives it, so we wil I alo publ ish 

programs, both in BASIC and m/c language 

to enable you to make the most of this cheap, 

( < $10) modification. 



The April issue will also contain the next instalment on Assembly Language 
Programming and all the usual features such a BETTER BYTES etc.. 

- 00000 - 
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by Edwin R. Paay . 

** INTRODUCTION ** 

I hagg been asked to write the assembly language articles from this month on. 
so here goes! My aim is to help you all become assembly language programmers 
but to do this I will need some feedback. If there is anything in these 
articles which you cannot understand or if I miss something out that you want 
to know, please write in and ask, that way we can make sure that this series 
is just what you want. 

** RSSEMBLY UERSUS MRCHINE LRNGURGE ** 

Some of you are probably wondering what the difference is between assembly 
language and machine language (note that m/1 and a/l will be the abbreu iat ions 
for machine language and assembly language respectively for the rest of the 
articles), fl m/1 program is a code that can be decoded and acted upon directly 
by the CPU (central processing unit). It is a set of binary coded 
instructions stored in memory. Binary numbers are too long and cumbersome to 
work with so we use hexadecimal notation to represent them. That is all very 
we I I for the CPU, for the programmer however it is impossible to remember 
hundreds of machine language instructions in hexadecimal . This is where a/1 
comes in, it gives us a convenient means of writing programs. 

R/l uses mnemonics which is a form of shorthand notation. for instance in 
machine language (also called object code) the instuctions 21 - 34 - 12 mean: 
load the HL reg. pair with the value 1234H (from now on, all hexadecimal 
numbers wil I have an "H" behind them to set them apart). In a/1 (also cal led 
source code) this would be: LD HL, 1234H as you can see, that is a lot 
easier to remember. Typing in "LD HL,1234H" is easy for the programmer but to 
the CPU it means nothing as yet, which is where the assembler comes in. It 
converts the a/I text (source code) into m/1 (object code) which can then be 
loaded by the computer and executed. Now, don' t think of a/I just as discrete 
instructions, it is a proper programming language, with features which makes 
it, in some respects, easier to use than BRSIC. 

** WHY RSSEMBLY LRNGURGE PROGRAMMING ? ** 

Fit this point 1 would like to make the following statement : "Rssemblg 
language is the most powerful programming language on any computer system." 
More powerful than BRSIC, FORTRRN and PRSCRL combined. Let me explain. Take 
the case of the TRS-80, for instance, it contains a basic interpreter in ROM, 
this is just a m/1 program which can interpret BRSIC statements and act on 
them accordingly. So we can see that m/1 can do the same things that BRSIC 
does. In the same way we could uirite a m/| program that recognises FORTRRN or 
PRSCRL statements, so m/1 is at least as powerful as all these languages 
combined. Every programmer (this means you ! ) can use m/| programs or 
suboutines to advantage, and often it is the only way some things can be done. 
For instance, 1 needed a program to draw graphics I ines rapidly between any 
two points on the screen, the SET command under BASIC was too slow and POKE 
statements were not suitable either, so the only thing left to do was to write 
an a/I program to do the job for me, that is how "SET2" in last month' s issue 
came about. 

The most common reasons for using a/l programming are its high speed, complete 
control of the computer, more efficient memory use or to provide functions 
that are not available through basic. 
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Just before we get down to business, a word about programming aids. In Part 1 
we mentioned that you will need an Ed i tor/Rssemb I er , a debug/monitor and a 
disassembler programs to make the most of this series. For the really serious 
a/I programmer I can also recomend the Texas Instruments "TI proqrammer" 
calculator. I personally would not like to be without it, apart from the 
normal calculator functions this calculator also allows conversions between 
octal, hexadecimal and decimal, and it will do almost all the logic and 
arithmetic functions of which the 280 is capable, which can be very helpful in 
debugg ing . 

The next few parts in this series of articles will deal mostly with the 
different types of instructions available on the 268. When that has been done, 
I will prepare some articles on actual programming and reveal some useful ROM 
routines which can be used in your m/1 programs. I hope that the information 
presented so far has helped some of you to get a better picture of what a/I 
programming is al I about, if you want to become an a/l programmer then read 
on . 

==== BftTft MOUEMMENT==== 

Of all the instructions available, the LD (load) command is the most used in 
almost all a/I programs. There are 8 bit (one byte) loads and IB bit (two 
bytes) loads, we will handle each seperately. First let us look at some 8 bit 
load instructions : 



10 


LD 


R,5H 


20 


LD 


B,D 


30 


LD 


E , ( HL ) 


40 


LD 


( EC ) , ft 


50 


LD 


(IX+3),L 


60 


LD 


ft . ( 4S67H ) 


70 


LD 


(9ftBCH),ft 



Now we wil I take each one in turn : 

Line 10 says - load the "ft" register with 5 Hex.; so after execution of line 

5.0, reg. ft will contain 5. 

Line 28 says - duplicate the value contained in the "D" reg. into the "B" reg; 

therefore if "D" contains 9, after execution of line 28 the "B" reg. will 

contain 3 also and "D* remains unchanged. 

Line 30 means - load the *E" reg. with the contents of whatever address the 

"HL* reg. pair is pointing to. 

Example: if, before execution of line 38, HL = 5000H and memory location 

(address) 5008H contains 12H, then after execution "E" contains 12H. "HL" and 

address S088H remain unchanged. 

Line 48 says - load address pointed to by the "BC" reg. pair with contents of 

the "ft" reg. 

Example : if, before execution "ft" = 22H and "BC" = 2233H then, after 

execution memory location 2233H will contain 22H , "BC" and "ft" are 

unchanged . 

Line 50 shows the use of the index registers, this line says ; load memory 

location pointed to by reg. "IX* plus 3 , with the same value as is currently 

in the "L" reg. 

Example "- if "IX" contains 5555H and L = 10H then, after executing this 

instruction, memory location 5558H will contain 10H, "L" and "IX" reg. will 

remain unchanged. 

Mote that the value "3" in 1 ine 50 can range from +127 to -128 (decimal ) this 

is called the displacement. the "1Y J reg. functions in the same way. This 

function is suitable for accessing tables containing data etc. 
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Line 60 has a ualue in between the brackets, this value points directly to the 

location in memory to be used. 

Example: if location 4567H contains 50H then, after execution of line 60. 

register "R" will contain 50H and address 4567H will remain unchanged. 

Line 70 - apart from a different address between the brackets, is I ine 60 in 

reverse. It puts the value from *R* into location 9RBCH and leaves "R* 

unchanged . 

These I ines show some of the different ways in which the "LD* function can be 
used to transfer 8 bit bytes between main memory and the registers. fit this 
point, 1 must men- ion that not all combinations of *LD* functions are leqal. 
E.g.: 

LD BC.L 

LD (1234H),H 

LD ( BC ) . ( HL ) 

LD ( DE ) , 5H 

are all illegal, so you can see that, initially, an a/1 manual is needed to 
see which combinations are legal. Rfter some practice you will know which are 
legal and which are not. Also, you may have noticed that if a value or req. 
pair is placed between brackets it means it is pointing to a location in 
memory, as in the case of lines 30 to 70 incl ., for more info. on the 
addressing modes, review last month' s issue. Now we wi I I look at some 16 bit 
i oads : 

15 LD HL.6023H 

25 LD DE,(5019H) 

35 LD C 789RH ) , BC 

These are some typical 16 bit loads. 

Line 15 loads the value 6023H in the "HL" reg. pair, so after execution "H* 
contains 60H and "L" contains 23H. lihen combined, "HL" =6023H 

Line 25 reads, load the value contained in location 5019H and 501RH in memory 
into the DE reg. pair. 

Example : if 5019H = 22H and 581RH = 11 then after execution *DE* = 1122H. 
Note that "D" reg. = 1 1H and "E" =22H. The 280 and the Intel 8080 store data 
in a "back to front" format; for instance, if "BC" = 3456H then, after 
executing line 35 "C" which contains 56H, is dumped to memory first so that 
memory loction 789RH will contain 56H. The 280 will then dump the contents of 
the 'B" register (3^H) to the next location 789BH. 

Line 25 showed us that it takes data from memory least significant byte first 
so that data will be read back from memory correctly. 

It must also be mentioned that the flags are not affected by any of the data 
moving operations CLD.POP. PUSH ,EX, etc ) 

There are two 16 bit instructions which are part of the 16 bit LD group but 
which are different from the rest:- PUSH and POP. These instructions involve 
the stack pointer, so we will need to discuss the stack first. 

** THE STRCK, PUSH and POP 

The 280 contains a 16 bit register labeled "SP" (stack pointer). The value in 

this reg. points to a location in memory, this location is called the stack 

area. The stack pointer can be set by using ; LD SP.nn .where "nn" can 

be any four digit Hex. value. There will be more on the stack in a future 

issue. 

Now to get back to our PUSH and POP instuctions, they look like this : 

22 PUSH HL 

44 POP BC 
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these instructions wil 1 , of course, work with, any of the reg . pairsj 
1X,IY,HL,DE,BC,AF and not just with HL and BC as shown in the lines aboue. 
Example : if *Hl_" = 1234H and the *SP" contains 5525H then, after line 22 isl 
executed, "HL* will be unchanged, the *SP" will contain 5523H, memory location 
S524H will contain 34H and location 5523H will contain 12H. 
Note that the stack pointer moved down to a lower value memory location and 
that it decremented by 1 before it pushed the first byte on the stack, and the 
stack pointer always points to the last byte pushed onto the stack. Now, if 

the CPU executes line 44 straight after line 22, the BP will contain 5525H 
again and the "BC" reg will contain 1234H. First notice that the stack is a 
"LIFO" stack ie. last in first out, in other words the last value that wal 
PUSHED on the stack will be the first to POP off the stack when POPped. ,< 

By now I am sure some of you are starting to wonder how you will remember alf 
this and are starting to feel a bit down-hearted, wel I here is some good news, 
with the PUSH and POP instructions, all that is really neccessary to remember 
is that the order in which you PUSH registers on to the stack must be the 
reverse of the order in which you POP them off again later. I have qone intol 
detail here so that you can refer to it when needed, to find out exactly how 
the PUSH and POP functions work. 
The stack can be used for temporary storage of data or for saving data from 
the registers so that the registers can be used by subroutines (.e.g. when 
doing a X=USR(8) routine from BASIC), then, upon returning from the 

subroutine, the original data can be restored to the registers by POPpinq them 
off the stack. ft second important use for the stack is as a medium when 
transferring data from one IS bit reg. to another. This is what was done in 
lines 22 and 44 above. ftfter executing I ines 22 and 44 there has simply been] 
a transfer of data from the "HL" reg. pair to the "BC" reg. pair. 

** THE EXCHANGE INSTRUCTIONS ** 

There is a group of instructions called "EX'changes, I will list a few below: 

13 EXX 

33 EX DE , HL 

The instruction in 1 ine 13 exchanges data in BC , DE and HL with their| 
equivalents in the alternate reg. set, this is the only way the alternate 
registers can be accesed for use. (see last month' s issue for d isscus ion - on Z88 
reg. set) 

Example : if HL = 10H, DE = 12H, BC = 5SH, HL' = 43H, BE" =49H and BC = 99H.1 
then, after execution of line 13 HL = 43H, DE = 49H . BC = 9SH, HL' = 10H, DE' " 
= 12H, BC = S5H, (note 55H= B855H , suppressed leading zero's to make numbers 
shorter), so it can be seen that EXX has simply swapped 3 reg. pairs with the 
equivalent reg. pairs in the alternate reg. set. 

Now we get to I ine 33 - if "HL" = 647 4H and "DE" = 8897H, then after execution! 
of I ine 33 "HL" = 8897H and "DE" = 64? 4H, so it has simply swapped the data in 
them, around. 

** BLOCK TRANSFERS ** 
Now we come to the LDIR instruction. This is a very powerful function and is 
not found on any other 8-bit microprocessor that 1 know of, it looks 1 ike| 
th i s : 

83 LDIR 
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This instruction will move a block of memory up to 64k bytes long to any 
location in memory. This would normal ly be quite a long subroutine on any 
other processor, an the Z80 however it is a single instruction. To use it we 
must load the DE.HL and BC reg.'s with the relevant data. The "HL* req. must 
contain the source address, "DE* reg. must contain the destination address and 
"BC" reg. must be loaded with the number of bytes to be mowed. 

Example : if we wanted to move 3 bytes starting at 5880h to 808Bh in memory a 
suitable program would look I ike this : 



11 


LD 


HL , 5800H 


12 


LD 


TJE , 8B00H 


13 


LD 


BC.3H 


14 


LDIR 





If locations S800H = 11H, 5001H =21H and 5002H =31H then after execution of 
the proqram above 5000H to 5B02H are unchanged "BC" will contain zero (the 
LDIR command uses the BC reg. as a byte counter and keeps on looping until 
BO0) "HL" reg. pair will contain 5003H, "DE" will contain 8003H . The 
addresses 8000H to S802H will then have the following data in them ; 
S000H=11H, S001H=21H, 8002H=31H. 

There is also an LDDR instruction, this does the same as the LDIR instruction, 
except that it decrements the "DE" and "HL* reg. pairs. What this means is 
that the LDIR starts at the top of a block of memory (lowest address first) 
and the LDDR at the bottom (highest address first), the LDDR instruction is 
not as often used as the LDDR instruction. 



I will new I i st a small sample program for you to experiment with using 
of the functions discussed in this article : 



some 



10 

28 LOOP 

38 

40 

50 

60 

70 

80 

80 

180 

110 

128 

138 

I wil I go through this one 1 ine at a time. 

Line 18 simply tells the assembler that the program will be located starting 

at 4F80H (to allow for 4k system users). 

Line 20 first of all has a label called "LOOP*, this is so we can I odd back to 

it later, it then tells the CPU to load the "HL" reg. pair with 3C00H, this is 

the start of video memory. 

Line 38 loads the 'DE* reg. pair with 3C01H which is the second byte in video 

memory . 

Line 40 loads the "BC" reg. pair with 400H, this is the number of bytes in the 

block of video memory. 

We now have the registers set up for a block move. 



ORG 


4F08H 


LD 


HL,3C80H 


LD 


DE,3C01H 


LD 


BC,400H 


LD 


( HL ) , R 


INC 


fl 


LDIR 




PUSH 


RF 


LD 


BC.3FFFH 


CfiLL 


68H 


POP 


RF 


JR 


LOOP 


END 


LOOP 
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Line 50 loads "the first byte of video memory (because 1 ine 20 loaded "HL" with 

3C00H ) with the contents of the "A" reg. me don't know at this time what thd 

"A* reg. contains. It really doesn't matter because we are going to let the 

program cycle right through the complete ASCII set anyway, so we don' t care 

where we start . 

Line 60 simply increments the value in the ft" reg. by one. The "ft* rea. will 

now contain the ftSCII code for the next character, which is used when it loops 

back and executes line 50 again. 

Line 70 does a block move, the blocks in this case however overlap and the 

result is that, whatever character is in the first byte of video memory, is 

duplicated in the whole block of video memory. In other words, it fills th^ 

screen with whatever was in the first video location on the screen. 

Line 80 saves the contents of the "ftF" reg. set on the stack. This is 

necessary because we are going to execute a subroutine which will destrou the 

value in the "ftF" reg. set and it is up to us to save it. 

Line 90 loads the "BC" reg. pair with a value, this value will be used in a 

delay loop. The delay will be 3FFFH times 14 micro-seconds, or approx. 0.25 

second . 

Line 100 directs the computer to the subroutine stored in ROM located at B0H. 

The "CALL* instruction has the same function as the "GOSUB" statement in 

BASIC, 60H is the start of the delay routine 1 was talking about above. 

Line 110 restores the data pushed earl ier to the "ftF* reg. set. 

Line 120 causes the program to loop back to I ine 20 and go through the whole 

sequence again. 

Line 130 tells the assembler it is the end of the program and that the entry 

point (start) of the program is at the line called "LOOP" (line 20) . 

There are a few instructions in the program that have not been discussed so 

far, this will be done in one of the future articles. 

The program above will fill the screen with the complete ftSCII character set, 
including graphics. As you will notice, m/l graphics are fast, the characters 
will appear to fill the screen immediately. In fact, this program is so fastj 
that if we didn' t put in the delay loop the scanning of the screen would not 
be able to keep up with the computer. You can try this by taking out the] 
de 1 ay loop. 

For those of you who do not have an assembler I will I ist a basic p-rogramj 
uihich will load the m/l program for you using POKE statements : 

10 DATA 33,0,60,17,1,60,1,0,4,119,60,237,176,245 

20 DATA 1,255,63,205,96,0,241,24,233 

30 FOR X=20224 to 20247: READ A : POKEX.A :NEXT X 

40 POKE 1652S,240: POKE 16527, 79: X=USR(0) 

50 END 



To disable the delay loop change I ine 20 to: 
20 DATA 1,255,63,0,0,0,241,24,233 

To be continued. 

- 00000 - 
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For all you frustrated owners of Level 1 4K machines who are trying to f? 1 n 
5K of program, here is something that may help. Below is a I ist of all ;.ie 
abbreviations for Level 1. Some of them are listed in 'the Level 1 ounars 

manual but some are not. So even if you think you know then all, it ..it 
still pay you to look through the list. 



ABStX) =A.(X) 



CLS 

DAT ft 

END 

FOR 

GOTO 

GOSUB 

INPUT 



=C. 

=D. 
=E. 

=F. 
=G. 
-=G0S. 
=1. 



INT(.X) 


=I.CX) 


RETURN 




= RET. 


NEXT 


=N. 


RESEKX, 


Y) 


=R.(X,Y) 


ON 


=0. 


RND( X ) 




=R.(X) 


PRINT 


=P. 


STOP 




=ST. 


PRINT FIT 


=P.A. 


STEP X 




=S.X 


P0INT(X,Y) 


=P.(X,V> 


SET(X,Y) 




=S.(X,Y> 


RESTORE 


=REST . 


TAB(X) 




=T . C X ) 


REftD 


=REft. 


THEN 




=T. 



In 
wi I 
(1) 
(2) 
(3) 
( 4 ) 

CS) 



addition to using the above? abbreviations here are some other tips which 
I help you save space:- 

Do not use REM I ines. 

Do not put blank spaces anywhere that you don' t nave to. 

Use multiple statement lines whenever possible. 

Do not repeat program lines, if you need it more than once, put 
it in a subroutine. 

Do not use arrays (*ft(2)=?*> for variables unless you must. 

Leave out instructions where possible or keep them short. 

Happy squeezing'. 

***** LEUEL 1 PROGRAM SELECTOR - by Charlie Bartlett ***** 

If you have several programs loaded onto one tape and you don't want the first 
one, type in this line in the COMMAND MODE (no line numbers) and qo and have 

a cup of coffee. When you return, the tape will be in position to CLOftD the 
program you want in the normal manner. 

F.X=1 TO CN-1 ): P. "PROGRAM" ;X; "LOADING" : IN. *A$: N.X 
MOTE: N=the number of the program you want, if the one you want is the third 
on the tape, for example, you substitute 3 for N. 

- 00000 - 

***** BETTER BYTES ***** 
a potpourri of ideas, hints, tips, and odd ramblings, based 
on readers' letters, and compiled by Peter Hartley. 

DAMftGE can result from connecting your power supply to the wrong socket. Mark 
the power cord clearly by fixing a strip of sandpaper - sand outwards - round 
the plug, with a rubber band. This way, if your don't see it, you will feel 
it before it's too late! 



RECORD/PLAY head in a floppy drive is in actual physical contact with the disk 
during read/write operations. Hence the need to protect from greasy fingers, 
falling hair, fag ash, etc. Almost makes those 

worth -wh i 1 e 1 



p! ast ic 



covers 



seem 
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MULTIPLE dumps are a good idea if you cannot afford TANDY data tapes. This 

1 ine gives you three dumps with gaps between, while you wander off and tel 1 
the wife how bril I iant you' ve been* 

FOR T=0 TO 1500: OUT 255,4: NEXT: FOR K=l TO 3:CSAUE"N*: FOR T=0 TO 1500: OUT 
255,4: NEXT: NEXT 

EXPECT to see some hefty drops in the retail price of Floppy Dr ivies soon if 
our information is correct. Of course, the poor old Aussies will be the last 
to benef it i 

USEFUL routine for drawing a box round the ' 80' s screen using only one 

FOR/-NEXT loop. 

100 FOR UAR = TO 127 

110 SET (UAR,0): SET (UAR, 127) 

120 IF UAR>47 SET (0,UAR): SET (47, UAR) 

130 NEXT 

NOTICE that you-know-who' s latest newsletter is described as "Uolume No. 7*. 
I've missed out on everything since "Uolume 1, Issue 6" ! 

READERS contributions are invited for this column. 

***** READER' S REQUESTS ***** 

This column is a regular feature of MICRO-80. In it. we list all those 
articles, programs etc., requested by our readers. We then do our best to 
work our way through them in the cominq months. If you are thinking of 
contributing an article or program, have a look at this list first, it will 
give you an idea of what our readers want. 

** ARTICLES ** 

File handling on the TRS-80 

Book rev lews 

Review of printers for the TRS-80 

Reviews of commercially available software and hardware 

Rev iew of Chess programs 

Description of the functions performed by the Expansion Interface 

** SOFTWARE ** 

GAME OF LIFE relocated to start at 7000H 

RICOCHET for L2/4K machines 

M/c language program to use BREAK key like RESET when Expansion Interface is 

connected . 

PRINT *-l, INPUT*- 1 speedup 

Hex to Dec, Dec to Hex conversion routines 

** HARDWARE ** 

RS232 printer Interface 

Interfacing the TRS-80 to external hardware 

Lowercase modification 

- 00000 - 
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***** r REU1EW OF "LEARNING LEUEL II" - By Charlie Bartlett ***** 

(.Charl ie has just converted his Level 1 machine to Level II. We thouqht he 
was the ideal person to rev iew this American book which has been receiving 
rave rev i ems in the USA) . 

1 have just read a copy of "Learning Level II* written by David A. Lien who 
also wrote the Level 1 Manual . He has adopted a similar approach and the 
result is a Level II Manual which is as easy to read and understand as the 
Level 1 book and just as much fun. 

4 

The first chapter in the book is devoted to updating the Level 1 Manual to 
read I ike a Level II. For someone starting out with a Level II machine and 
having no previous experience with the BASIC language, this section takes care 
of an area not previously covered by other books. The whole of the first 
chapter is reproduced at the back of the book so that, should you wish to cut 
out the amendments and stick them in the Level 1 Manual , you can do so without 
damag.ng the main part of the book. Chapters 2 and 3 deal much more fully 
with the EDITOR than the official manual does and would give anybody a much 
better understanding of its ab i I ities. 

Chapters 4 to 22 deal with the other Level II commands, written in the same 
clear, operator error trapping, style that most of you know from Level 1. 
Chapters 23 to 25 deal with the expansion interface, dual cassette operation 
and real time clock, also very easy to follow Imust be I don't have one but 
after reading it I know how to use one). The Appendix contains a very much 
expanded explanation of the Error codes an ASCII code table, various useful 
information and the reproduction of Chapter 1 as mentioned above. 

Wei I , those are al I the good things. The bad? The ONLY thing that seems to be 
missing is any reference at al I to the STRINGS function. Apart from that it 

is an excellent book which I would recommend to anybody and should be included 
by Tandy with their Level II machines but, considering the likelihood of that, 

1 suggest you buy one yourself. Those of you who already have Level II. 

"well, you see there are these functions and routines not mentioned in the 

official Manual." What are they? I'd tell you, but 1 have run out of room 1 . 

- 00000 - 

***** SOFTWARE SECTION ***** 
The I istings for these programs are at the back of the magazine. This section 
explains what each program is about and how to use it. Level 1 programs have 
been printed by first converting them to Level 2. When entering them, use 
abbreviations and remember to enter "PRINT $* as "PRINT AT". 

** LEARNING NIM LI/4K ** by Marlon Binet 

Nira is one of many names given to this game, where two players - in this case 
you and the ' 80 - take turns to remove not less than one nor more than three 
objects from a pile. The loser is the player who removes the last ob ject . 
Sounds easy? 

This version offers three modes of play... 

a) where you can win most of the time 

b) where you might win occasionally and 

c) where the S0 learns from its mistakes and eventually becomes unbeatable. 
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It is this third mode that demonstrates a simple -Form of artificial 
intelligence. By keeping a record of those play positions which have always 
resulted in a win, the '80 gets progressively better in its play until it is 
truly unbeatable. 

Just enter the program, type RUN and take it from there. 

** LUNfiR LfiNDER - L1/4K ** 
This program is presented in two, 4k modules. The first contains the 

instructions, the second is the program itself. fill that needs to be saic 
here is good luck, you are certainly going to need it. 

♦* RICOCHET - L2/4K ** 

This is the program, first publ ished in the January issue, now rewritten td 
run on Level 2 machines. The special feature of the Level 1 program was the 
way in which it simulated the INKEY function. It did this by SETting two 
graphics blocks which were subsequently overwritten by an alpha character when 
one of the control keys was operated. So, why didn't it work with Level 2? 
The POINT statement was used to interrogate the graphics blocks to decide if 
they were still SET or not. ft SET block returns the value +1 in Level 1 but 
-1 in Level 2, hence the problem. However, this version of the program uses 
the INKEY function, so no problems. 

The program commences by asking you to specify a level of play between eas 
(1) and difficult (10). It then draws a wall down the centre of the screen. 
Randomly spaced along the wall are some gaps, the number of which 
determined by the degree of difficulty chosen - 6 gaps for easy, 15 gaps fori 
difficult. Lined up with these gaps is an equal number of targets to the far 
right. Walking up and down the screen to the left of the wal I is a man. When 
you think he is in the right position, press the "F* key, the man will stopj 
raise his arm and fire. If you stopped him correctly, the bullet will pass 
through the gap in the wall and hit the target. If not, the bullet wil 

ricochet off the wall and kill him' You have 3 men targets per game. Wheil 

the man reaches a boundary, he automatically reverses, unl ike the Level I 
game, you cannot reverse his direcion from the keyboard. Sounds easy doesn't 
it - try iX\ \ \ 

** 1NORDERS (L2/16K) - by Ron Sully ** 

The game INUfiDERS is built essentially around the Level 2 1NKEYS function ant 
PEEK and POKE statements. The INKEY* function is used to fire and move the 
cannon and PEEK and POKE are used in moving and firing of the INOfiDERS. Th« 

RND function and plenty of GOSUBs and GOTOs help to create the illusion oi 
many things happening at once. 

fipart from initially setting the stage, there is no true start point as the 
program passes randomly from and to the following actions: 

1. The movement of the cannon 

2. The firing of the cannon 

3. The movement of the INUfiBERS 

4. The firing of the INOfiDERS 

5. The firing of the static INUfiDERS (Mother Ships) 
as well as scoring and creating simulated explosions where necessary. 
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The game was designed to be competitive. That is one playe"r would play to 
determine a score then each consecutive player would try to better that score. 
But it is also suitable as a solitaire game in that any one player can 
endeavour to better his own score with each consecutive game. A game can last 
between five and six minutes and scores can exceed 6800. 

** RANDOM NUMBER GENERATOR TEST PROGRAM (L2/16K) - by Keith Neighbour ** 

This program draws a table showing the frequency of occurrence of numbers 
between 1 and Cup to) 105 selected by the TRS-80 as random numbers by the 
command RNB. You can allow the sample to run on indefinitely or you can limit 
it by requesting a specific number of randomized samples. 

Pi table of the range of numbers chosen for sampling CI to whatever) is laid 
out on the screen bounded by > and < in each line C program lines 60 to 82). 
Hence limitation to 105 as the highest number, as 1 to 105 gives a 
screenful 1 . 

The frequency of the random choice of each number is displayed beneath its 
number, and this display is constantly updated. 

Rs each random number is chosen it is briefly displayed at the bottom right 
hand corner of the screen together with the frequency count for that number 
and the total samples to date. 

The progressive random number cycling routine shuttles between program lines 
SB and 160. After generating a random number in line S0, subroutine 500 
chaoses the correct frequency display line to be updated Cthe busy *s show 
which line is being worked on) and Line 110 chooses the correct over-print 
position in that particular frequency display line. 

The display can be interrupted at any time and restarted by hitting any key. 
If you interrupt the run and then hit "L" the numberCs) with the highest and 
lowest frequencies are displayed in the format : 

HIGHEST: 7 C times) FOR 34,28 

LOWEST : Cetc) 

The number of times that each number is chosen Cits frequency) is stored in 
array C C ). C see I ine 100) 



Subroutines 1300 to 1030 and 1100 to 1130 search through arrayt CC ) and 
identify the highest and lowest frequencies for the appropriate numbers. 

A screen print subroutine is used C I ines 20000 to 20100) for hard copy if 
required. This is activated by hitting P during an interrupt. 

If you chose a high range of numbers for random sampling - say between 1-50 
and 1-105, let the program run for a minute or two before interrupting to find 
the numbers with the highest and lowest frequency, otherwise the list of 
numbers with lowest frequency (zero in this case) will swamp the screen! 

Of course the longer the program is run the more accurate the sampling will be 
and the more even the distribution will be (assuming the random number 
generator is a good one!). To try out any random number generator for good 
frequency distribution, replace the statement R=RNDCE) in Line 30 with the 
particular random number generator routine. A good random number qenerator 
will give an equal frequency for each number. 



MICRO-80 



P.O. BOX 213, GOODWOOD, S.A. 5034 AUSTRALIA 

TELEPHONE (08) 381 8542 

rt-ttot. H 

** RANDOM NUMBER GENERATOR TEST PROGRAM NO. 2 (L2/16K) - by Keith Neighbour ** 

This is similar in operation to the previous program except that the result! 

are shown in a constantly up-dated bar graph -form. The range of numbers to bj 

randomised has also been limited to the numbers 1 to 10. 

The secret to the fast graphics display is the direction of the bar graphs 

which run horizontally rather than vertically, as is usual. The length of thl 

bar graph against the horizontal scale indicates the number of times ( thi 

frequency) each number from 1 to 18 has been chosen by the random numbei 

generator. The exact frequency is displayed to the left of each of th< 

numbers 1 to 10 on the vertical scale. 

The up-dating is continuous and the graphic display re-generates itself whei 

the horizontal scale bacomes too small to accomodate the "leading* number 

The horizontal scale is then automatically increased by a factor of 10 and th^ 

bar graphs are shortened to their correct length for the new scale. 

Line 280 prints the total numberr of random numbers to date at the bottom ofl 

the screen. Line 265 prints the frequency on the left of each of numbers 1 tc 

10. Line 270 converts the frequency to the number of graphic blocks for th( 

particular bar graph. Line 280 prints the bar graph. 

The cycle runs between lines 200 and 310. Line 235 decides when a new graplj 

scale is needed and sends the program to subrotine 4000 which draws the nex< 

generation of bar graphs. 

Routine 3120 to 3170 prints the vertical display scale and routine 3180 t| 

3200 prints the horizontal display scale. 

Interrupt and resume operation by hitting any key. 

** ANALOGUE CLOCK (L2/1BK) - by Keith Neighbour and Peter Hartley ** 

This program draws a very realistic clock face on the screen, then draws anj 

redraws the hour, minute and second hands very rapidly indeed, using the SET 

program publ ished last month. Unless you have that progrram, this clock wil 

not work. 

Type in the BASIC program listing, RUN it to check that it draws the clocl 

face satisfactorily, (you will get an error message in line 850) then CSAU 

it. 

To load the complete program, you need to have put SET2 on tape. Power -up| 

answer MEMORY SIZE ? with 32222, then type SYSTEM, load in SET2 and type 

"ENTER". You now have the SET< > command in your machine. The next step i 

to CLOAD the BASIC clock program you CSAUEd earlier, RUN it and you arre il 

bus iness . 

If the clock is inaccurate, adjust the timing loop in 1 ine 540. Increase thl 

value to more than 515 if the clock is runnig fast, decrease it if it ij 

running slow. Incidentally, this program also features a silent chime on th 

hour. You might not be able to hear it but it sure shakes the clock about ! ! 

** BMON PART2 (L2/16K) - by Eddy Paay ** 

THIS MONTHS INSTALMENT WILL ENABLE THE RENUMBER, LOAB, MERGE, PROTECT ANl 
CANCEL PROTECTION COMMANDS. ONE THING I DIDN' T MAKE CLEAR LAST MONTH IS THfi 
THE MEMORY SIZE HAS TO BE SET TO 23216 ON POWER UP. 

RENUMBER. 

THIS ROUTINE WILL RENUMBER BASIC PROGRAMS TO USER SUPPLIED PARAMETERS. IF 
BASIC PROGRAM IS IN MEMORY AND THE RENUMBER COMMAND IS CALLED UP THE FIRS 
THING YOU WILL SEE IS A BLOCK OF GRAPHICS FLASH IN THE LOWER RIGHT CORNER 
THE SCREEN. THIS TELLS YOU THAT THE PROGRAM IS BEING PREPARED FOR RENUMBERING 
IT WILL THEN ASK "I?"; ANSWER THIS WITH THE INCREMENT FROM LINE TO LINE, THEl 
IT WILL ASK "N?*; ANSWER THIS WITH THE LOWEST NUMBER LINE THAT YOU WANT. THI 
INDICATOR WILL THEN FLASH AGAIN TELLING YOU RENUMBERING IS IN PROCESS, WHB 
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FINISHED THE COMMAND LIST WILL BE DISPLAYED TO THE SCREEN AGAIN AND IT IS 
POSSIBLE TO RETURN TO BASIC. 

LORD. 

THIS COMMfiND WILL LOAD BASIC PROGRAMS FROM TAPE AND DISPLAYS THEM TO THE 

SCREEN WHILE LOADING. AFTER TYPING THE "L" KEY THE MESSAGE 'READY CASSETTE" 

WILL FLASH ON THE SCREEN, THEN HOLD DOWN THE ENTER KEY UNTILL THE RECORDER 

STRRTS TO RUN. THE BREAK KEY CAN BE USED TO ABORT LOADING BUT ONLY WHILE DATA 

IS BEING RERD, NOT FOR INSTANCE WHILE IT IS READING THE LEADER. 

WHEN IT IS FINISHED LOADING THE END OF THE PROGRAM WILL BE MARKED WITH A LARGE 

BLOCK OF GRAPHICS, AND THE PROGRAM LOCATIONS IN MEMORY ARE SHOWN. CNOTE THAT 

IT DOES NOT DISPLAY THE LINE NUMBERS) 

MERGE. 

WHEN MERGING USE THE SAME PROCEDURE AS. FOR "LOAD* IT WILL THEN LOAD A NEW 

PROGRAM BEHIND ONE ALREADY IN MEMORY. WHEN IT IS THROUGH LOADING IT WILL 

DISPLAY A BLOCK OF GRAPHICS IN THE RIGHT LOWER CORNER. THIS MEANS IT IS 

AUTOMATICALLY RENUMERING THE NEW PART OF THE PROGRAM TO MAKE IT FIT BELOW THE 

OLD ONE. WHEN THE INDICATOR STOPS FLASHING IT SIGNIFIES THAT RENUMBERING IS 

FINISHED YOU CAN THEN HIT ANY KEY TO RETURN TO THE DIRECTORY. 

NOTE THAT IF THE BREAK KEY IS PRESSED WHEN THE "READY CASSETTE" MESSAGE 

APPEARS INSTEAD OF THE ENTER KEY, THE CANCEL PROTECTION COMMAND (THE "F" KEY) 

MUST BE USED TO RECOVER RNY PROGRAMS IN MEMORY. 

PROTECT PROGRAM AND CANCEL PROTECTION. 

THIS COMMAND WILL PROTECT A BASIC PROGRAM AND MAKE IT APPEAR AS IF IT IS NOT 

THERE. IT CAN THEN BE RECALLED USING THE CANCEL PROTECTION COMMAND LATER. 

- OOOOO - 

*«*** HARDWARE SECTION ***** 

** DOUBLE THE STORAGE CAPACITY OF YOUR DISKS ** 

The standard disk drive, of the type supplied by Tandy, uses only one side of 
each disk. However, the disks themselves have magnetic material on each side 
and drives such as the PERCOM, sold by Dick Smith, use both sides. Hou» do 
they do it? If you look at a disk with the label towards you in the bottom 
left hand corner, you will see one notch and two holes in its cover (not 
including the large centre hole). The rectangular WRITE PROTECT NOTCH is at 
the top of the disk, directly above the right hand edge of the label. As the 
disk is inserted into the drive with this notch uppermost, the edge of the 
disk deflects an arm attached to a micro switch. But. when the disk is pushed 
right in, the arm is so positioned that it drops into the notch and changes 
the state of the micro switch. This is sensed as a non wr ite-protected disk. 
You can WRITE PROTECT the disk by putting a piece of strong tape over the 
notch. This prevents the arm from dropping into the notch the microswitch 
does not change state and the drive interprets the disk as being WRITE 
PROTECTED. Drives such as the PERCOM have a second microswitch and arm 
assembly at the bottom of . the drive so that a disk can be sensed for write 
protection when put in either way up. 

Now, if you look at the disk cover again, you will see a smal I I round hole, 
close to the centre hole at about "1 o'clock*. This is the index/sector hole. 
If you CAREFULLY rotate the disk inside its cover by gripping it with your 
fingers at the extreme inside edge of the large centre hole, you will find 
that there is a much smaller hole in the disk which lines up with the 
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index/sector hole, once per revolution. The Tandy disk drive has a LED on one 
side of the disk and a detector on the other side, lined up with the 
index/sector hole. Once each revolution, the small hole in the disk lets a 
pulse of light from the LED through to the detector. This is used as a 
synchronisation signal so that the drive knows where the disk segments start. 
The PERCOM disk drive has this same arrangement but, in addition, it has a 
second LED and detector positioned at about *5 o'clock* with respect to the 
disk. Thus, when you turn the disk over in a Percom drive, this second LED 

and detector will be aligned with the index/sector hole and, in conjunction 
with the wright protect micro switch at the bottom of the drive, enables the 
reverse side of the disk to be used in exactly the same way as the normal 
s ide . 



Mow, the installaion of a second write protect switch and LED/detector into an 
existing Tandy disk drive, to make it double-sided, would be a formidable 
task, unless you happen to have a tame machine shop handy. There is, however, 
another very simple way to make a Tandy drive "double-sided". It involves 
modifying the disk covers themselves. Even if we cannot put a write protect 
swith at the bottom of the drive and an index/sector LED/detector at 
o'clock, at least we can put a wr ite-protect NOTCH in the bottom of the disk 
cover and a second index/sector hole in the cover at 5 o'clock. Then, when we 
turn the disk over, the drive will find all the signals it needs and wil 
happily write and read to the reverse side of the disk. 

** The Template ** 

Towards the back of the magazine, you will find a template which looks just! 
like the reverse side of a disk cover. That's exactly how we made it? You 

will find it has the two essential requirements, a write/protect notch at th^ 
bottom and an index/sector hole at "5 o'clock*. Cut this out and glue it to 
piece of stiff cardboard which you should also cut to the exact outline of thd 
template, including the write/protect notch. You now have a solid cardboarc 
replica of a disk cover. By one means or another, you need to make a hoi 
right through the cardboard and the template, where the index/register hole is 
on the template. You could use a 1/4 inch wad punch, or a drill or a nail i 
razor blade to trim the material flat. 



So .far you havn' t had to spend very much but now comes the expensive bit. Yoi 
need a one-hole paper punch 1 1/4 inch). These usually resemble a pair 
pliers. You must make sure that the punch you use will cut a clean holfj 

through the material that disk covers are made from. We use a ounch made 
England by MAUN INDUSTRIES - Part No. 4G03-16B. This punch is a high qual it( 
unit but it is not cheap. Ours cost *9.25. We have seen other one-hol, 

punches for much less. The local K-MFiRT for instance, had one at 93 centj 
the other day. Whether these are good enough for the job we cannot say but 
for S3 cents you might I ike to try one. If you do buy the Maun Industria 
tool, you will need to remove the finger screw and paper stop from the I ouij 
jaw. 

The only other equipment you need is a medium sized white TEXTfi marker pen an 
a small rectangle of thin cardboard about 2 1/2 cm. wide by 5 cm. long witlj 
the two corners at one end slightly bevelled to remove sharp edges C we cut 
piece out of the pack the Tandy disks come in). 

Now to modify your first disk. Take your time and don't rush things, it on! 
takes a few minutes anyway. Place the disk to be modified on a table with tr 
write/protect notch at the top and the label in the bottom left hand cornaij 
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Place your template oyer it so that the wr ite/protect notch in the template ; .s 
on the bottom edge of the disk and the two elongated slots through which the 
disk head reads -and writes, line-up at "3 o'clock* Cyou could cut this slot 
out in your template too, if you like). Now, carefully adjust the position of 
the template so that all its edges are al I igned with those of the disk. fit 
this point, if you look straight down on the template, you should not be able 
to see the disk below it except through the uirite/protect notch and the 
index/sector hole. Now, take the white Texta marker and mark through the 
template onto the disk cover, the shapes of the write/protect notch and the 
index/sector hole. Remove the template. You should now have a disk with a 
white rectangle on its bottom edge, almost touching the right hand side of the 
label and a white circle close to the large centre hole at about "5 o'clock*, 
lake the one-hole punch and punch a semi-circular write/protect notch so as to 
cut out the white mark on the bottom edge of the disk. This notch works just 
as well as a semi-circle it does not have to be rectangular. Now, take the 
small piece of cardboard and slip the bevelled end in between the disk and the 
cover, under the white mark for the index/sector hole. This cardboard is to 
prevent the punch from damaging the disk surface. It is important that the 
cardboard should be clean and should not crumble or leave any fibres behind. 
Carefully ljft up the cover and slip the bottom anvil of the one-hole punch 
between the cover and the piece of cardboard. Take care to allign the punch 
over the white spot and punch it out. Inside the black disk cover there is a 
specially treated inner cover of white tissue paper. Make sure that the punch 
has cut this out too. If it has not cut quite cleanly, carefully pull the 
partially cut circle out towards the centre of the disk until -t comes away. 
DO NOT LET ANYTHING GET OR REMAIN INSIDE THE DISK COVER. Remove the punch and 
piece of cardboard. 




procedure with the piece of cardboard and one-hole punch as you punch th 
index/sector hole in the other side of the cover. Remove the cardboard and 
punch and you are finished. We usually use the white marker to write a large 
*B* on the reverse side and an "ft" on the label side of the disk cover. 

Disks modified this way will work equally well on either side. You may 
write-protect either side by putting a piece of tape over the appropriate 
write/protect notch. Incidentally, these modified disks WILL NOT work on a 
Percom drive unless you block off the new index/sector hole on one side. This 
is best done with a small piece of black cardboard over the hole, held in 
place with tape. (Do not put the tape directly over the hole, it might stick 
to the disk). 

Now, see how long it takes you to fill up those hundreds of freeby grans you 
have just discovered'.!! 

- 00800 - 
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***** LETTERS TO THE EDITOR ***** 

From: K.L. ELLIS, Randwick, NSW. 
May 1 initial ly take this opportunity to congratulate you and your staff c 
the quality and usefulness of M1CR0-B8. I can only hope that it will continu 
to flourish. It provides a medium that is long overdue in the TRS-80 world. 

1 disassembled Eddy's BMON-Pt . 1 program out of interest and was delighted 1 
see the use that had been made of entry points and routines within the ROt 
Quite some time ago 1 wrote a pogram which disassembled the whole of the Lev( 

2 ROM and disk basic RfiM in the hope of gaining access to the routines etc 
This was reasonabl y successful but, as you will be well aware, it is a mammolJ 
task and unless one has nothing else to do with one's life, you don't get ver] 
far. What would be extremely useful to me and I have no doubt to a great mar 
other assembler programmers, would be a description of the ROM routines, the) 
entry points and parameters, for both Levels 1 and 2. I am sure that amongs 
all those dabbl ing in this area, there would be a considerable amount 
valuable information but have not as yet, seen a printed collection of thi 
material. I sincerely hope that the staff and readers of MICRO-80 will 
able to do something in this area in the not too distant future. 

Peter Hartley's article on the Light Pen was extremely useful. I have bei 
using a Light Pen of similar design for some time now and, as Peter has foum 
it suffers from all sorts of pecul iarities. I wrote an assembler program 
allow the user to draw on the screen and the BIT instruction solved many 
the problems inherent in the CASSIN data latch. The fact that the Oideo R 
is multiplexed between CPU and Uideo chcin divider causes some problems mv 
the high speed of the machine code, but a reasonable delay loop f< 
multiplexing can compensate well for this design problem. Light 
sensitivity and problems associated with the automatic volume control of tfl 
cassette recorder, remain the last two hurdles to be overcome. I 
considering a simple port interface direct to the system bus, thus el iminatiik 
the cassette recorder altogether. 1 would be very interested to hear frj 
readers who have been experimenting with Light Pens. 
1 was extremely pleased to read your comments regarding educational proqra 
for student use. For far too long this area has been hampered by cheap, nas 
programs. fill due praise to MICRO-80 for making a stand'. 

In conclusion may I suggest that in order to enhance an already magnifies^ 
magazine, a half-yearly or yearly cross-referenced index be produced, 
would be extremely useful in collating all the myriad of useful bits 
pieces contained in each issue. 

(We are presently preparing a book containing a description of the R 
routines and how to use them. We expect to have it available towards the 
of April but wil 1 make an announcement closer to the time. 

We would be interested in seeing the disassembler you wrote and also 
assembly language program for the Light Pen. Why not send them in so we c| 
consider them for publication? Thanks for the suggestion abou^ 
cross-referenced index, we will publish one at the appropriate time. -Ed.) 

From: B.H. CHRISTENSEN, Woden ft.C.T. 

1 would like to express my appreciation that someone IN ftUSTRRLIfi has tail 
the initiative to publish a magazine like MICRO-80. I have been extreme 
pleased with the first three issues and I hope you keep up the good work.| 
am especially appreciative of your balance between hardware and software as] 
am interested in both. The following ara my suggestions for future topics. 
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On the hardware side, you have indicated that a number of projects are in the 
pipeline eg. memory expansion. Already on the market there are a number of 
devices designed for systems without the expansion interface. For example, I 
own a printer interface (Tandy type) and a Morse Code-RTTY interface. What 1 
really am going to need is some kind of motherboard so that these and other 
devices can all be plugged in at once. I guess you have this sort of thing in 
mind but I would ask that you publish the interface standards (S100 or 
whatever you choose) early so that other constructors mould have a standard to 
work to. For my part, I am working on a 'real* real-time clock that will be 
independent of the TRS-80 but able to be interrogated by it to provide date 
and time without the need to reset on powering up. If it ever works I will 
send you the details. 

K 0n the software side. 1 think the thing I would | ike most is a BASIC Compiler 
designed so that a program can be written and debugged in interpreter mode 
using the ROM and then compiled and run as a machine language program for 
speed and low memory usage. I am also looking forward to the disassembly of 
the ROM and the various ROM routines that you promised. 

(.Thanks for the encouragement. We do have a motherboard in mind and will get 
around to it shortly, after the memory board is finished. fls far as the BUS 
is concerned, we are keeping to the Tandy standard. We have considered S100 
but it really does seem rather pointless and expensive, to convert the Tandy 
BUS to S100 then decode from SL00 on each plug-in board. The memory board, 
for example, would become much more expensive since it would have to provide 
its own refresh signals as well. That is not to say that we will ignore S100 
in the future since the System 80 will use it. 

We would be interested in seeing the results of your hardware real-time clock 
with a view to publishing it. The software clock which comes with TRS DOS has 
proved to be more of a I iabil ity than an asset to most users and we notice 
that its accuracy (importance?) has been downgraded in TRS DOS 2.3. 
We agree that a BASIC compiler would be nice. We are only aware of two 
suitable programs, both American and both costing in the vicinity of S3501 If 
any of our readers has written a compiler of their own, please let us know - 
Ed. ) 

From: JOHN C. HARBWICKE, Collaroy Plateau, NSW. 

1 would appreciate some advice through your columns, on the most economical 

way to include diskette and printer on my TRS-80 Level 2/16K machine. I am 

not interested in the narrow paper strip printer, rather a unit capable of at 

least quarto size with ribbon printing. 

Is information on your lower case mod available? 

(There is a lot of interest in printers John and we will shortly start 
researching the whole subject for a future article. The lower case mod will 
be publ ished next month. -Ed) 

From: G. STEWART, Gl enroy Oic. 

I am not able to make the program, MERGE (MICRO-80 Dec 79). work in the way in 
which it was intended. When MERGE is the only program in memory, 1 get the 
given addresses from the PEEK statements. Upon CLOADing a BASIC program, the 
LIST reveals that, not only has MERGE been erased from memory but so have th 
first 10 lines of the BASIC program. This happens both after typing NEW and 
after power-off. Advice on how to overcome the difficulty would be 
appreciated and equally importantly, an explanation in terms of machine 
operation for the seeming malfunction, is sought. 
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If a reader has written a m/c language program that speeds up data transfer 
during PR1NT*-1 and INPUT*- 1 operations, would they please offer it for 
pub I i cat ion in M1CR0-88? 

(We are as puzzled as you by this problem. On receiving your letter, we 
loaded MERGE from the December issue cassette but it worked perfectly for us J 
fire you sure you are following the instructions exactly? If it still won't 
work in your machine, perhaps you would be better to forget it and use BMON, 
which does everything MERGE does, but better. Perhaps same reader has 
encountered this fault condition and can write in giving us an explanation? 
fi program to speed up PRINT*-1 and INPUT*-1 would be useful, we have out it in 
our Readers' Requests column. Ed) 

From: RON KEHN, Korumburra, Uic. 
I would like to express my thanks to Ronald J. Sully for fixingup the errors 
in the Basic Monitor listed in Issue 2. Like Romald, I turned my attention td 
the Life game. Using the monitor, I was eventual ly able to get the machine! 
code loaded and the program to run. The procedure I used was as follows: 

1. Power on and protect memory at 31800 

2. CLOAD the corrected monitor and use it to create the hex 1 isting 
of LIFE, starting at 31888 (7C90H) - arbitrary choice. 

3. Use the monitor to dump the HEX code to tape - 1 used the 
parameters 31888,32360,32208. 

4. Next, 1 deleted all lines under 8080 thus leaving only the LOAD 
portion. I inserted the following I ine: 

8036 START=20480:FINISH=20952 
then 1 CSAUEd this special program, calling it Loadlife. 

5. Next, 1 powered-off then powered-on again, protecting memory at 
20479 . 

6. 1 then CLOADed Loadlife - ran it to load the HEX dump created! 
previously and, with line 8036, it gets put in the correct location inj 
memory. 

?. Finally, 1 CLOADed the BASIC part of LIFE, typed in RUN and 

sat back to enjoy the intriguing patterns the computer produced. 
The above procedure was carried out on a Level 2, 16K machine. 

(Thank you for this useful contribution, Ron. Loading the machine language 
portion of LIFE is even easier now, using the MINI MACHINE LANGUAGE SHOE and 
LOAD programs publ ished in February's issue but the principle is essentially! 
the same as the one you have described - Ed.) 

From: Mr. A. L' ESTRANGE, Darwin, NT. 

(Mr. L' Estrange explains how he debugged Monitor in Basic, then continues -) 

Could you provide a subroutine that would scroll a program listing one line at 

a time and possibly any designated number of lines at a time? 

I had previously written Hex to Dec and Dec to Hex routines but the routinesl 

in Monitor in Basic were beautiful, I would never have thought of that] 

method. 

(We have put your request for the LISTing program into our Readers' Requests 
column - it should be possible to write such a program in machine language. 
Thanks for the nice comments about the Hex to Dec and Dqc to Hex routines.] 
Your interest has prompted us to prepare an article on this subject for a 
future issue. - Ed.) 
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From: Mr. F. G. STURGES, Touinsvillo, Qld. 

fis your Z80 BRSIC is a little different from mine, is there an available book 

giving a function listing? 

Eg. your "PRINT $ R5.RS" is unintel I igbl e to me, 

as is "IF (fi(R(0) ))>0*(R(R(0)))<27" 

tin order to use progams written for the '80, on a different machine, you 
would need to fully understand Lew el 1&2 BflSICs plus, of course, the BRSIC on 
your own machine. Level 1 in a "TINY BfiSIC* taking 4K of ROM whilst Level 2 
is an extended BRSIC taking 12K of ROM. The book, Learning Level II, by David 
R. Lien, which you will find reviewed in this issue, is a excellent way to 
learn all about Tandy's BRSIC. There is another book by the same author - The 
Basic Handbook, which is an encyclopaedia of the BRSIC language which you 
could also find very useful in converting programs. I believe this book 

could be available from The Technical Book and Magazine Co. Pty. Ltd., 295-299 
Swanston St., Melbourne 3008, Ph. (03) 663 3951. If not, we could arrange to 
import copies for you and any other interested readers. When imported in 

small quantities, the book would cost about *20.00, including air mail 
postage . 

Undoubtopopedly the most difficult part of converting programs from one system 
to another is the conversion of screen formatting and graphics. The Tandy 

screen can display 1024 characters at once. Each character position is 

individually addressable via the PRINT e statement CPRINT RT in Level 1). 
Position is in the top left hand corner of the screen, position 63 is at the 
top right hand corner, position 64 is immediately below position and so on 
until position 1023, which is in the bottom right hand corner of the screen. 
The PRINT @ statement will work with a constant, Eg. PRINT S 500, or with a 
variable, Eg. PRINT 3 R5, (where R5 has previously been given a numerical 

value) or will even evaluate an algebraic expression itself, Eq . PRINT S 

(5+64*1). 

The other expression you mention involves the logical RND operation, 

represented by the * and the ( ) around the expressions in the IF THEN 

statement. It is further complicated by the use of a "double" Rrray function. 

A(0) is the value of an Rrray variable. R(R(0)) is the value of another Rrray 
variable occupying the position in the array determined by the value of R(0). 
The expression quoted is saying: 

IF the value of ft(R(0)) is greater than 0, RND if it is less than 27 

THEN 

ie. If the value of R(fi(0)) is between and 27, then the conditional 

statement is satisfied and program control passes to the "THEN" statement. 

1 hope these explanations have helped clarify the specific case you mention, 

Mr. Sturges. I am sure you will find the books recommended above would make 
conversion much easier. - Ed.) 

- 00000 - 
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***** PROGRAM LISTINGS ***** 

*» LEARNING N1M ** 

5 F0RI=BT059:A(I)=RNB(3):NEXTI 

18 CLS:FOR J=l TO 5 

28 FOR 1=1 TO 18B:NEXT I 

38 PRINT AT 468, "WELCOME TO NIM" 

48 FOR 1=1 TO 100: NEXT I 

50 CLS:NEXT J 

BB INPUT "BO YOU REQUIRE INSTRUCT IONS ( 1=YES,2=N0)" ;Q 

B5 1F(Q<>1)*(Q<>2)THEN B8 

78 IF Q=l THEN GOSUB 18800 

80 PRINT "HOW MANY MATCHES BO YOU WANT" 

98 PRINT* IN THE P1LEC ENTER 8 FOR RANBOM AMOUNT)"; 

188 INPUT N 

185 IF(N<B)+(N>3B)THEN 80 

110 IFN=0THEN N=RNB(28)+1B 

130 INPUT " SKILL LEUEL( 1=F AIR , 2=G00B , 3=LEARNING ) * ; S 

14B IFCS<1)+(S>3) THEN 138 

158 CLS:F0RI=BT0127:SETCI,25):NEXTI:PRINT<*537;* MATCHES"; 
155 GOSUB 1BB8 

160 PRINTS128; "THERE ARE . .*;N;" MATCHES IN THE P1LE* 

180 PRINTS576;: INPUT "BO YOU WANT TOGO FIRST( l=YES,2=NO)" ; Q 

190 IFQ=2GOTO2000 

200 PRINT3576; --PRINT: INPUT "HOW MANY MATCHES BO YOU WISH TO TAKE";Q 

210 IFCQ<1)+(Q>3)+(Q>N)THEN2BB 

215 1F5=3THENA( N+29 )=Q 

220 GOSUB 3000 

238 GOTO 2000 

1080 F0RI=3T0N*3STEP3 

1018 F0RJ=13T021 

1828 SETCI.J) 

1038 NEXT J 

1848 NEXT 1 

1858 RETURN 

2B8B IFN=1THEN3BB08 

2818 IFN=8THEN32B8B 

2820 1FS=1THENGOSUB4000: IFRNBC3)=1THENQ=RNB( 3) 

2830 IFS=2THENGOSUB4000 

2048 IFS=3THENQ=A( N- 1 ) 

2845 IF( Q>=N )+( Q=8 )THENQ=ABS( Q- 1 ) : GOT 02045 

2050 PRIN7@640;-I WILL TAKE";Q;" MATCHES* 

2BBB FORI = 1TO 1 000 : NEXT I : GOSUB3000 : GOTO2B0 

3000 FORI=N*3T0(N+l-Q)*3STEP~3 

3018 F0RJ=13T021 

3828 RESET (I, J) 

3030 NEXTJ 

3040 NEXTI:N=N-Q 

3850 PR1NT£128; "THERE ARE . . .";N;" MATCHES IN THE PILE" ; :RETURN 

4800 Q=INT( C ( N-D/4-1NTUN-. 885 )/4))*4): RETURN 

10000 CLS: PRINT "NIM IS A GAME OF LOGICAL SKILL IN WHICH " 

18810 PRINT "YOU WILL PIT YOUR WITS AGAINST THE COMPUTER." 

18020 PRINT "THE GAME IS PLAYEB WITH A SET AMOUNT OF MATCHES" 

10030 PR1NT"(Y0U DECIBE THIS) AND A LIMIT ON THE AMOUNT OF MATCHES* 

10040 PRINT "EACH PLAYER IS ALLOWEB TO TAKE.": PRINT 

10050 PRINT "THE OBJECT OF THE GAME IS TO MAKE YOUR* 

18888 PRINT " OPPONENET (.IN THIS CASE THE COMPUTER) PICK UP" 
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10070 PRINT *THE LAST MATCH EACH PLAYER TAKING TURNS" 

10080 PRINT "IN TAKING FROM 1 TO 3 MATCHES FROM THE PILE.* 

10030 PRINT: PRINT* IN THIS GAME THE SKILL OF THE COMPUTER* 

10100 PRINT "IS SET AT A CHOICE OF THREE LEUELS FAIR, GOOD OR" 

101 10 PRINT "LEARNING . " : PRINT 

10130 INPUT "PRESS 'ENTER' TO CONTINUE"; A* 

10140 CLS:PRINT*IN THE LEARNING MODE THE COMPUTER STARTS* 

10150 PRINT "BY TAKING A RANDOM AMOUNT OF MATCHES AWAY* 

10160 PRINT "BUT LEARNS FROM YOUR PLAY AND IMPROVES WITH" 

10170 PR1NT"EACH GAME UNTIL IT IS AS GOOD AS YOU ARE.* 

10180 PRINT ".PRINT "THE NUMBER OF MATCHES IN THE PILE" 

10130 PRINT'lS SET BY YOU TO A UALUE OF BETWEEEN 1 AND" 

10200 PRINT "30 OR IS SET AT A RANDOM UALUE BY THE" 

10210 PRINT "COMPUTER IF YOU SO DESIRE. WELL THATS" 

10220 PRINT "ABOUT ALL YOU NEED TO KNOW." 

10230 PRINT " G O D L U C K \ ! » \ * 

10240 INPUT "PRESS 'ENTER' WHEN READY ";A» 

10250 CLS : RETURN 

30000 1FS=3THENFORI=0TO23: At I )=AC 1+301 : NEXT1 

30005 FORI=1TO1000:NEXTI 

30010 CLS: PRINT "WELL DONE YOU HAUE WON THE GAME* 

30020 1FS=3PRINT"BUT 1 WILL PLAY BETTER NEXT TIME" 

30030 GOT 032500 

32000 CLS: PRINT" I HAUE WON THE GAME" 

32500 INPUT "CARE TO PLAY AGAIN( 1=YES,2=N0)" ;Q 

32510 1FQ= 1THENCLS : GOT 080 

32520 PRINT "SEE YOU ROUND" 

- OOOOO - 

** LUNAR LANDER INSTRUCTIONS ** 



READ ON FOR SOME DETAILED INSTRUCTIONS- 



< A 

KEY 



1 H=5000:U=0:M=0:T=0:U=0:G=0:R=0:N=0 

2 A=0:P=0 
10 CLS 

20 GOSUBB000 
30 PRINT 
100 PRINT* 
120 PRINT 
140 GOSUB7000 
150 CLS 

1B0 PRINT "PLACE YOUR LEFT HAND ON THE KEY MARKED 
170 PRINT "PLACE YOUR RIGHT HAND ON THE < ENTER > 
180 PRINT 

130 PRINT "GOOD, NOW EUERY TIME YOU PRESS THE < A > KEY YOU WILL COMMAND* 
200 PRINT "THE ON BOARD COMPUTER TO INCREASE THE FUEL RATE, WHICH IT WILL" 

210 PRINT "THEN DISPLAY ON THE CONTROL BOARD SO FAR SO GOOD." 

220 PRINT* NOW, WHEN YOU PRESS THE < ENTER > KEY, IT WILL COMMAND* 
230 PRINT "THE ON BOARD COMPUTER TO FIRE THE PROPULSION UNIT AT THE RATE" 
240 PRINT "PROGRAMMED BY YOU. *** NOW PAY ATTENTION... IT WILL KEEP* 
250 PRINT *FIR1NG THE MOTOR AT THAT RATE UNTIL YOU PRESS THE < A > KEY " 
2B0 PRINT'AGAIN. ONCE IT IS PRESSED A SECOND TIME, THE MOTOR WILL STOP* 
270 PRINT "AND THE FUEL RATE WILL RETURN TO ITS LOWEST SETTING." 
280 INPUT "PRESS ENTER FOR A PREUIEW OF THE CONTROL BOARD"; A* 
300 GOSUB2000 
320 PRINT»654,****REMEMBER****; 
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340 PRINT •832, "LEFT HAND SELECTS : RIGHT HfiND FIRES : LEFT HAND AGAIN' 

350 PRINT •896, "STOPS MOTOR AND RESTORES FUEL RATE UALUE TO LOW. " 

360 PRINT 3960, 

370 GOSUB7000 

390 CLS 

400 PRINT "IF YOU THINK YOU UNDER STAND PRESS ENTER.* 

405 PRINT "IF NOT PRESS < BREAK > AND GO OUER IT AGAIN*; 

410 INPUT AS 

420 CLS 

430 PRINT "TYPE NEW AND THEN CLOAD TO LOAD IN REAL TIME LUNAR LANDER." 

450 END 

2000 CLS 

2010 F0RY=2T09 

2015 SET(48,Y):SET(49,Y) 

2016 SET(66,Y):SET(67,Y) 
2020 NEXTY 

2030 F0RX=48TO65 

2035 SET(X,2:>:SET(X,9> 

2040 NEXTX 

2053 PRINT£89,H; 

2060 PRINT3153, "HEIGHT" ; 

2070 F0RX=25T045 

2075 SETtX,ll^:SET(X,18) 

2080 NEXTX 

2885 F0RY=llTO18 

2090 SET(24,Y):SET(25,Y;-.SETi.46,Y):SET(47,Y) 

2095 NEXTY 

2100 PRINT •269, M; 

2105 PR1NT^333, "FUEL" ; 

2110 F0RX=68T091 

2115 SET(X,11):SETCX,18) 

2128 NEXTX 

2125 F0RY=llTO18 

2 1 30 SET ( 68 , Y ) : SET ( 69 , Y ) : SET ( 90 , Y ) : SET ( 9 1 , Y ) 

2135 NEXTY 

2140 PR1HT*291,-U- 

2145 PRINT $355, "OELOCITY"; 

2150 PRINT^452,P; 

2155 PRINT •SIS, "FUEL RATE"; 

2156 PR1NT*538, "DURATION* ; 

2157 PRINT&466.U; 
2168 FORX=6TO107 

2165 SET(X,20):SETCX,27) 

2178 NEXTX 

2175 FORY=20TO27 

2180 SET(6,Y"):SETC7,Y) 

2185 SET(106,Y):SET(107,Y) 

2186 SET(34,Y):5ET(35,Y):SETC58,Y):SET(59,Y) 
2190 NEXTY 

2195 FORX=6TO107 

2280 SET(X,29):SET(X,36) 

2205 NEXTX 

2210 F0RY=29T036 

2215 SET(6,Y):SET(7,Y:> 

2220 SET( 106,Y):SET( 107, Y^ 

2225 NEXTY 
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2230 PRINT @644, "MESSAGE" ; 

2235 PRINT ©708, "BOARD "; 

2255 F0RY=38TO45 

2260 PRINT ©544, "TIME" ; 

2265 FORY=20TO27 

2270 SETC78,Y):SET(79,Y) 

2275 NEXTY 

2280 PRINT&552,"G FORCE"; 

2285 PRINT@480,T; 

2290 PRINT @488,R; 

2350 PRINT 9832, * "; 

3000 RETURN 

6000 CLS 

6005 PRINT" REfiL TIME MOON LANDING. <INSTRUCTIONS ONLY> 

6010 PRINT 

6015 PRINT "THIS SIMULATION IS IN REAL TIME. IT TAKES 60 SECONDS TO RUN" 

6020 PRINT "FROM START TO FINISH." 

6030 PRINT "IF YOU DO NOT THINK YOU CAN MANAGE IT IN THAT TIME* 

6035 PRINT "TYPE 2. THIS WILL SLOW THE GAME DOWN TO HALF SPEED." 

6040 PRINT "SO THAT THE 60 SECONDS DISPLAYED WILL ACTUALLY HAVE TAKEN" 

6050 PRINT" 120 SECONDS OF REAL TIME. ALL TIMES STATED ARE OF COURSE" 

6060 PRINT "PRESUMING THAT YOU FAIL TO REDUCE SPEED AT ALL." 

60S5 RETURN 

7008 INPUT"PRESS ENTER TO TURN THE PAGE * ; AS : RETURN 

- OOOOO - 

*» LUNAR LANDER ** 

(NOTE: WHEN ENTERING THIS PROGRAM, TYPE P. AT..., INSTEAD OF 
PRINTS. . . ; ) 

1 GOSUB6000 

2 W=0:I=0:R=0:Z=0:P=0:B=4:C=40:D=1:F=43:U=0:J=0 

10 T=0:U=-25:E=200:G=2:H=5000:M=25000 

11 GOSUB2000 

12 T=0:U=-25:E=200:G=2:H=5000:M=25000 

14 SET(B,0:SETCD,F) 

15 GOSUB100:IFR<500GOTO25 

20 PRINT@654; "FUEL RATE TO HIGH" ; : PRINT ©7 18; "MOTOR BURNT OU 

T"; : GOT 050 

25 GOSUB200:IFA<13GOTO35 

30 PRINT&654; "G FORCES TOO HIGH* ; :PRINT*718; "LANDER BREAKING UP*;:G0T075 

35 IF M<=5008GOTO45 

36 N=N-l:IFH<=0GOTO57 

40 IFN<=8G0T015 

41 GOT 025 

45 PRINT$654;*N0 FUEL LEFT"; 

50 PRINT @7 18; "PREPARE FOR LANDING" ; :R=0 

51 PR1NT©452;R; 

55 GOSUB200 

56 IF H>0GOTO55 

57 IFV/=0 0=-U 

60 PRINT $832; "TOUCH DOWN AT";T;"S TERMINAL SPEED=" ; -V; *M/S* ; 

65 IF U>-1GOT085 

66 IFU>-5GOTO30 

67 IF V>-10GOTO95 
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70 PRINT $896 ;* YOU MADE R HOLE * ; M*U*O/50000 ; "M DEEP." 

71 FORX=1TO2000: NEXTX 

75 PRINT $832; 'DO YOU WfiNT TO PLAY AGAIN ? TYPE 1 FOR YES, 2 FOR NO"; 
77 INPUT " " ; Q 

79 1FQ=2G0T0999 

80 IFQ=1G0T02 
82 GOT 075 

85 PRINT $654; "GOOD LANDING" ; : GOT075 
90 PRINT$654; "ROUGH LANDING" ;: GOT 075 
95 PR1NT$654; "LANDER DESTROYED" ;: GOT 075 

100 H=INTIH):M=INT(M):U=INT(U):A=INT( A) 

101 PRINT$89;H; : PRINT $291 ; -O; : PRINT $269;M-5800; : PRINT <*480; T ; :PRINT$^08; A; 

102 PRINT$466; J; :PR1NT$832; " " ; : IFL=2THEN109 
107 FORX=1TO260: NEXTX: GOTO 110 

109 FORX=1TO550:NEXTX 

110 IF(POINTCB,C)=0)*(POINT(D,F)=3. )GOSUB4000 

111 1FR>=0THEN115 

112 GOSUB120:GOTO110 

115 N= 1 : IF C POINT ( B , C )=0 )*( POINT C D , F ) =0 )GOSUB5000 

116 N=INT(N):IFN>0GOTO118 

117 GOSUB120-.GOTO115 

118 RETURN 

120 PRINT $708; "IMPOSSIBLE* ; 
208 M=M-R:A=E*R/M-G:T=T + 1:H-*HH*A/'2:U=U+A 

201 IFR>0J=J+1 

202 1FR=0J=0 

203 PRINT $854; " . "; 

204 PRINT $7 18;" * ; 

205 IFJ>0THENPRINT $654; "MAIN MOTOR IGNITION"; 

206 1FJ>0THENPRINT$718;"SEQUENCE NOW ON "; 

207 IFJ=0THENPRINT$654; "INITIATING MAIN MOTOR": 

208 IF J=0THENPRINT $7 18; "SHUTDOWN NOW "; 
300 RETURN 

999 CLS 

1000 PRINT "PROGRAM TERMINATED" 
1018 PRINT "END" 

1020 END 

2000 CLS:F0RY=2T09:SET(48,Y):SET(49,Y):SET(66,Y):SET(67,Y):NEXTY 

2030 FORX=48T065 : SETC X , 2 ) : SETC X , 9 ) : NEXTX: PRINT$89;H; : PRINT $153 ; "HEIGHT ■ ; 

2078 F0RX=25T045:SETCX,11):SETCX,18):NEXTX:F0RY=11T018:SETC: > 4,Y):SETC25,Y) 

2895 SETC46,Y):SETC47,Y):NEXTY 

2108 PRINT$269;M-5000; :PR1NT$333; "FUEL" ; : F 0RX=68T 091: SETC X, 11):3ETCX, 18): NEXTX 

2125 F0RY=1 1T018 : SETC 68, Y ) : SETC 69, Y ) : SETC 90 , Y ) : SETC 91 , Y ) : NEXTY 

2140 PRINT $291; -U; :PRINT$355; "UELOCITY" ; :PRINT$452;P; ;PRINT$515; "FUEL RATE" : 

2156 PRINT $530; "DURATION" ; 

2157 PR1NT$466;U; 
2160 FORX=6TO107 

2165 SETCX,20):SETCX,27) 

2170 NEXTX 

2175 FORY =201027 

2180 SETC6,Y):SETC7,Y) 

2185 SETC 106, Y):SET(107,Y) 

2186 SET(34,Y):SET(.35,Y):SETC58,Y) SETC59.Y) 
2198 NEXTY 

2195 FORX=6TO107 

2200 SETCX,29):SETCX,36) 
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2205 NEXTX 

2210 F0RY=28T036 

2215 SETC6,Y):SET(7,Y:> 

2220 SETC 106,Y):SETC107,Y) 

2225 NEXTY 

2230 PRINT ©644 -."MESSAGE"; 

2235 PRINT ©708; "BOARD "; 

2255 F0RY=38T045 

22B0 PRINT ©544; •TIME" ; 

22B5 FORY=20TO27 

2270 SET(78,Y):SETC79,Y) 

2275 NEXTY 

2280 PR1NT©552;"G FORCE"; 

2285 PR1NT©480;T; 

2280 PRINT©4B8;A; 

2350 PRINT ©832 ; " *; 

3080 RETURN 

4000 REM 

4805 1=1+1 

4020 ONIGOSUB4100 , 4120 , 4130 , 4140 , 4 150 , 41B0 , 4170 , 4180 , 4 188 , 4200 , 4210 , 4220 

4025 SET(.B,C):SET(D,F) 

402B PRINT©452;P; 

4030 RETURN 

4108 P=25 

4118 GOT 04025 

4120 P=50 

4128 GOTO4025 

4130 P=75 

4138 GOTO4025 

4140 P=100 

4148 GOT 04025 

4150 P=150 

4158 GOT 04025 

4160 P=200 

4163 G0T04825 

4178 P=250 

4178 GOT 04025 

4188 P=380 

4188 GOT 04825 

4180 P=350 

4188 GOTO4025 

4200 P=400 

4208 GOT 04025 

4210 P=450 

4214 K=556 

4218 GOTO4025 

4220 P=580 

4235 GOTO4025 

5000 R=P 

5015 SETCB,C):SETCD,F) 

5020 P=0 

5025 1=0 

5110 RETURN 

6000 CLS 

6005 PRINT" REAL TIME MOON LANDING" 

6810 PRINT 
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6815 PRINT *THIS SIMULATION IS IN REfiL TIME. IT TAKES 60 SECONDS TO RUN" 

6020 PRINTTROM START TO FINISH." 

6030 PRINT* IF YOU DO NOT THINK YOU CAN MANAGE IT IN THAT TIME" 

6035 PRINT"TYPE 2. THIS WILL SLOW THE GAME DOWN TO HALF SPEED." 

6040 PRINT "SO THAT THE 60 SECONDS DISPLAYED WILL ACTUALLY HRUE TAKEN" 

6050 PRINT "120 SECONDS OF REAL TIME. ALL TIMES STATED ARE OF COURSE" 

6860 PRINT "PRESUMING THAT YOU FAIL TO REDUCE SPEED AT ALL." 

6898 INPUT-TYPE 1 FOR REAL TIME, 2 FOR HALF TIME";L 

5095 RETURN 

- OOOOO - 
** RICOCHET - L2 ** 

PRESS F TO FIRE. NO DIRECTION REUERSE. 

1 CLEAR10:CLS: INPUT"PLEASE ENTER LEUEL OF PLAY REQUIRED. CI TO 10)" ;MM: CLS:MM=Mtll 
+5 

5 RANDOM: A=11:E=12:C=13:D=14:E=15:F=1B:G=1?:H=18: 1=29: J=38:K=31:L=32:M=33:N=34: J 
=35 : Q=2 : Z=l : DD=154B9 : EE= 15474 

10 F0RY=1T014:F0RX=DDT0EE:P0KEX, 191: NEXT :DD=DD+64:EE=EE+64: NEXT 
15 GOSUB2800 

24 R=RNDC 40 ) : IFR< 4GOT024 

26 IFNN=MMGOTO40 

30 X=91:lFCPOINTCX,R)=8)0RCPOINTCX.R-l)=8)ORCPOINTCX,R+l)=8)G0T024 
35 F0RX=98T01B1:RESETCX,R):SETC11B,R):NEXT 
3? NN=NN+1:GOT024 

40 F0RX=8T0127 : SET ( X , 8 ) : SETC X , 47 ) : NEXT : FORY=0TO47 : SET( 8 , Y ) : SETC 127 . Y ) : NEXT : PRINT 
*>27, -RICOCHET"; 

S8 PRINT ©978. "TARGETS HIT";TT;-: MEN DEAD" ; SS; : SETC D. I ) : 5ET(E, I ) 

55 5ETCA,J):SETCB,J):SETCC,J):SETCD,J):SETCE,J):SETCF,J):SETCG.J):SETCH.J):F0RY= 
KTOL: SETC A, Y ) : SETC C, Y ): SETCD, Y ) : SETCE, Y ) : SETCF , Y ) :SETCH,Y) -.NEXT :FORY=MTCO: SETC C, 
Y ) : SET C F . Y ) : NEXT : SET C B , ) : SET C G , O ) 

56 SS=1NKEYS: IFS*=-F"GOSUB1880 
60 1FZ=1G0T096 

65 RE5ET C F , ) : RESET C G , O ) : SET C G , N ) : Z= 1 : IFQ= 1RESET C G . - 1) 
73 GOT 097 

r iB RESET C B, ) : RESETC C, ) : SETC B.N) :Z=2: IFQ=1RESETC B.O- 1 ) 
97 IFQ=1GOTO105 

100 1=1 - 1 : J=J - l : K=K- 1 : L=L- 1 : M =M- 1 : N=N- 1 : 0=0- 1 : IFI = 1THENQ=1 
182 G0T0128 

L05 1=1 + 1 : J=J + 1 :K=K+1 : L=L+1 : M=M+1 : N=N+1 : 0=0+1 : 1F0=46THENQ=2 
1B7 G0T0132 

120 RESETC A.L+1): RESETC B, J+l ) : RESETCB, 0+1): RESETC C, 0+1 ): RESETC D, L+l ): RESETCE.L+ll 
; :RESETCF. 0+1): RESETC G, 0+1): RESETC G,J+1): RESETC H.L+1 ) : G0T0158 

132 RESETC A, J-l): RESETCB, J-l ):RESETCC, J-l ):RESETCB, I- 1):RESETCE.I-1):RESETCF J-ll 

/ 

158 RESETC G, J-l): RESETC H. J-l) :GOTO50 

L0B8 RESETCH.K):RESETCH,L):SETCH+1,K):SETCH+2,L):RESETCH+1,K):RESETCH+2.L):SETCH| 

+1,J):SETCH+2,K):RESETCH+2,K):SETCH+1,J):SETCH+2,J):SETCH+3,J):P=H+4:W=J 

1068 SETC P,W): RESETC P. W) :P=P+1 : SETCP.W) 

1865 1FP<89THEN1860 

10S2 IFCP0INTCP+1,W)=-1)ANDCP< 107)GOTO1200 

1034 1FCPOINTCP+1,W)=-1)ANDCP>107)TT=TT+1:GOSUB8000 

1030 1FP=125RESETCP,W):GOTO1110 

1.1-30 GOTO10B0 
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1110 RESET (H+3, J):RESETCH+2,J):SETCH+2,K):RESETCH+2,K):SETCH+1,K):SETCH+2,L):RES 

ET(H+l, J ):RESETCH+1,K):RESETCH+2,L):SETCH,K):SETCH,L): RETURN 

1200 RESETCP,W):P=P-1:SETCP,W):IFP>19GOTO1200 

1205 IFPOINTCP-1,W)=-1GOTO1250 

1240 GOTO1200 

1250 RESET C H+l , J ) : RESETC H+2, J ) : RESETC H+3 , J ) : RESETC H+4, J ) : RESETC ft, K ) : RESETC ft , L ) : S 

ETC H,I):SETCH+l,l-l):SETCfi-l,K):SETCft-2,L):RESETCH,I):RESETCH+l,l-l): RESETC ft- 1,K 

):RESETCft-2,L):SET(H,I):SETCH,I-l):SETCft-l,J):SETCft-2,J):SETCft-3, J ):RESETCft-l . J ) 

12B0 RESETCft-2,J):RESETCft-3,J ) "-SETC ft,l ) :SETC ft, I- 1 ):SETCfl,I-2): RESETC ft, 1-2) : RESET 
Cft,J):RESETCft,I):RESETCft,I-l):RESETCD,l):RESETCE,I):RESETCH,I):RESETCH.l-l):SETC 
G.I-1 ):SETCG,I):SETCH+1,I):SETCH+2,I):SETCH+4,I):SETCH+4,I-1 ): RESETC C,L) 
1270 RESETC D,L): RESETC E,L) : SETCG,L): SETCH,L): SETCH+1 ,L): RESETC C,K) : RESETC TJ.K) : RE 
SETCE,K):RESETCF,K): SETC G,K):SETCH,K): SETCH+1, K):SETCH+2,K): RESETC C, J ):RESETCD, J 
) : RESETC E, J ) : RESETCF , J ) : SET C H+l , J ) : SETCH+2, J ) : SETCH+3 , J ) : SETCH+4, J ) : RESETC C,M) 
1280 RESETC C,N) : SETC D,N) : SETC E,M) : RESET CF ,M) : RESETCF ,N ): SETC H,N) : SETCH+1,M) :RESE 
TCft, J):RESETCB, J ) : SETCB.N) : SETCB.O): SETCC,0): SETCD, ):SETCE,0 ) : SETCF.O) : SETC G, O) 
:SETCH,0): SETC G,N):SETCH,N):5ETCH+l,N):SETCH,M):SETCH+l,tt):SETCH+2,M): SETCH+1, L) 

1290 SETCH+2, L): SETCH+3, L) : SETC H+4,L) : SETC H,K) : SETCH+2,K) : SETCH+3, K) : SETCH+5,K ) : 

SETCH,J):SETCH+6,J):RESETCG,I-l):RESETCG,l):RESETCH+l,I):RESETCH+2,I):RESETCH+4, 

1):RESETC H+4, 1-1 ):RESETCD,N): RESETC E,M) -.RESETCF, L): RESETC G,L) :RESETCH,L) 

1300 RESET CG, J ) :RESETCH+1,K) :RESETCH+4,K) :RESETCH+1 , J ) :RESETCH+2, J ) : RESET C H+3 . J ) 

:RESETCG,K): RESETC H+4, J):RESETCH, J ) :RESETC H,K) :RESETCH+6, J ):RESETCH+5.K) :RESETCH 

+2,K):RESETCH+3,K):RESETCH+1,L):RESETCH+2,L):RESETCH+3,L):RESETCH+4,L):RESETCH,M 

) 

1320 RESETCH+1,M):RESETC H+2, M):SETCH,0): SETCH+1, 0):SETCH+2,0):SETCH+3,0):SETCH+4 

,0):SETCH+5,0):SET(H+6,0):SETCH+7,0):SETCH+2,N):SETCH+3,N):SETCH+4,N):SETCH+5,N) 

:FORX=1TO2000 : NEXT : F0RX=BT0H+7 :RESETCX,N) : RESETC X, 0) : NEXT 

1330 SS=SS+1:IFSS=3THEN1400 

1350 RETURN 

1400 CLS:PRINTCHRSC 23): PRINT "ftLL YOUR MEN ARE DEftD*:PRINT" R. I. P.':F0RX=1T0 

2000: NEXT :RUN 

2000 POKE1G070, 186:POKE1B072, 181:POKE1B006, 171 :POKE16007, 191 :POKE1B008, 151 :P0KE1 

B009, 149 :POKE1B005, 170 :P0KE 15943, 176: RETURN 

8000 RESETC P,W):RESETCP+1,W):P=125:1FTT=MMGOTO8020 

8810 RETURN 

8020 CLS : PRINT CHR*C 23 ) : PRINT " YOU WIN ! " : FORX=1TO2000 : NEXT : RUN 

- OOOOO - 
** INUflDERS ** 

1 ' COPYRIGHT CO 1979 

3 ' RONRLD J. SULLY 

4 ' 117 BRYftNT RTJ. , LOGftNHOLME QLD 4129 

5 CLEftRC B0 ) : DEFINTR-L , N-Y : DIMEC 88 ) 

10 RftNDOM: DEFSNGK: Ll=132: SC=200: Cft=4: CH=0: Ml=30 : MF=8: CLS: PRINT CHR*C 23 ) 

20 PRINT*22,* INVASION"; 

30 PR1NT@86,STRING*C8, "*" ); 

35 PRINT : PRINT: PRINT: PRINT: PRINT -R GftME OF CHftNCE AND SKILL" : PRINT : PRINT "ft THRIL 

L ft SECOND 

48 F0RT=1T0B9: EC T ) = C 518*RNDC ) ) + 15488: NEXT : FORT= IT 02900: NEXT 

50 CLS : PRINT @26, m INSTRUCTIONS" 

68 PRINT ©98, STRINGS C 12, *-* ) 

70 PRINT -.PRINT 'PRESS THE RRROW KEYS C * ; : PR1NTCHR*C93 ) ; " " ; CHRSC94); - ) TO MOOE LE 

FT OR RIGHT." 
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80 PRINT *PRESS THE SPACE BAR TO FIRE THE LASER CANNON. 

98 PRINT* PRESS THE (.S) KEY TO START AGAIN. 

100 T=502: PRINT: PRINT* 1. FOR EACH HIT* ;: PRINTS! , "SCORE 100 

110 T=T+B4: PRINT *2. IF YOUR LASER CANNON IS DESTROYED* ;: PRINT »T, "LOSE 200 

120 T=T+64:PR1NT*3. EACH TIME YOUR CASTLES ARE HIT* ; :PRINTST, *LOSE 5 

130 T=T+B4:PRINT*4. EACH TINE THE INVADERS MISS* ; ".PRINT ST , "SCORE 5 

140 T=T+64:PRINT"5. IF YOU MISS" ;: PRINT ©T , 'LOSE 10 

150 T=T+B4: PRINT'S. IF YOU HIT YOUR CASTLE* ;: PRINT*!, 'LOSE 50 

160 T=T+64: PRINT *7. IF YOUR 4 CANNONS ARE DESTROYED* ;: PRINT ST , "LOSE 1000 

178 PRINT: PRINT *PRESS <<ENTER>>"; 

175 INPUTF* 

180 CLS : POKEEC 1 ) , 128 : GOSUB1410 : GOSUB1510 : GOSUB 17 10 

180 GOSUB1310:X=RNDC2) 

200 ONXGOSUB1310.1810 

210 GOTO180 

308 ' SHOW SCORE 

310 1FSC>HSTHENHS=SC 

320 PR1NTS0,"YOUR SCORE **";SC;" ** - HIGHEST SCORE ***;HS;" *** ; 

330 1FCA<0ORMF=83THEN370 

340 FORT 1 = 1T078: IFPEEKC EC T 1 ) X >32THEN3G0 

350 G0SUB8 10: NEXT: GOT 0370 

380 RETURN 

370 PRINT S-48,STR1NG$C 15.* " ) ; :PR1NT@64, " >» END OF GAME <<<";: FORT = 1103500 :NE.:"lj 

GOTO 10 

888 END 

900 ' MOVE & FIRE 

810 M1=M1-.05:IFMK5M1=5 

915 F0RT=1T0M1:MFS=INKEYS:IFMF*=" "THEN8B8 

920 MF=ASCCMF5):IFMF=32GOS'}B1218:GOTO870 

930 IFMF=8GOSUB1010:GOTO87B 

940 1FMF=3GOSUB1110:GOTO870 

950 IFMF=83GOTO370 

880 NEXT 

978 RETURN 

1800 ' LEFT MOUE 

1010 IFPO-2<lG321THEN1830ELSEPO=PO-2:POKEPO+l,32:POKEPO+2,32:POKEPO+3,32 

1020 POKEPO- 1 , 142:P0KEP0, 143:POKEP0+l , 141 

1038 RETURN 

1180 ' RIGHT MOVE 

1110 P0=P0+2: IFPO>= 16383THENP0=P0- 2ELSEP0KEP0-2 , 32 : POKEPO-3 . 32: POKEPO- 1 , 32 

1128 POKEPO- 1, 1 42: POKEPO, 1 43 :P0KEP0+1, 141 

1138 RETURN 

1200 ' FIRE LASER 

1210 F0RRA=lTO14:EX=RA*64:CH=EX+64:P0KEP0-EX, 140: IFPEEKC PO-CHX >32THEN1230 

1220 POKEPO -EX , 32 : NEXT 

1230 P0KEP0-CH+S4,32:F0RT=lT018:POKEP0-CH,42:P0KEPO-CH,32:POKEPO-CH-l,42:P0KEPj 

CH- 1 , 32: POKEPO- CH+1 , 42: POKEPO -CH+1 , 32: NEXT : S=PO-CH 

1250 1FS< 15424SC=SC- 10: GOTO1270 

1255 IFS=>15424ANDS<16128SC=SC+100:GOTO1270 

12G0 IFS>16127SC=SC-50 

1270 G0SUB3 10: RETURN 

1300 'FIRE FROM INVASION FORCE 

1310 R=RND(2):IFR=1THENL1=140:FORQ=79TO78STEP-1:GOTO1317 

1315 FORQ=68T01STEP-1 

1317 IFPEEKC EC QX)=32T HEN 1370 

1320 5=64:rORF=lTO18:K=ECQ)+S*F:IFK=>lB383THENSC=SC+5:GOSUB318:GOTO1380 
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1338 IFPEEK(KX>32THEN1388 

1340 FORT =17 02 : POKEK , LI : POKEK , 32 : NEXT 

1350 G0SUB91B:NEXTF 

13B0 Z=Q:IF2/2=1NT(Z/'2)GOSUB910 

13G5 GOSUB1810 

1370 NEXTQ:L 1=132: RETURN 

1380 IFK>1B12?THENFORT=1TO20:POKEK,42:POKEK,32:NEXT 

1385 IFK.< 16 127THEN: POKEK, 148: GOSUB310: GOTO1350 

1390 1FK=>16128ANDK< 16255THENSC=SC-5: GOSUB310: GOTO13B0 

1395 SC=SC-20:GO5UB310:GO3UB1410:RETURN 

1400 ' 5ET UP CANNON 

1410 R=RNDl 3) : PO=1B350+R: FORCN=1B320TO1B333: POKECN, 32: NEXT 

1415 IFCA=0SC=SC- 1080: GOT 0370 

1420 CA=CA-1 :POKEPO- 1 , 142:P0KEP0, 143:POKEP0+l , 141 : SC=SC-200: GOSUB310 

1425 IFCA=0THENFORT=1TO28:PRINT©48,STRING*( 15, " * ); : PRINT348, "* LAST CANNON *' 

NEXT 

1430 RETURN 

1500 ' SET UP DEFENCE 

1510 FORT=1B196TO16251STEP10:FORN=T TO T+5: POKEN, 143:NEXTN,T 

1515 F0RT=16132T016187STEP18:F0RN=T TO T+5: POKEN, 184: NEXTN.T 

1520 RETURN 

1700 ' SET UP INVASION FORCE 

1718 FORT=1T069:POKEE(T), 140: NEXT 

1720 C=63*RNDt0)+129 

1730 R=RND C 2 ) : F ORT =70T 079 

1740 K=T-70:E(T>=K*6+15427+R:POKEECT)-1, 139:P0KEE(T ), 191:P0KEE(T ) + l, 135:NEXT 

1750 RETURN 

1880 ' MOUE INVASION FORCE 

1810 F0RM=1T069: IFPEEK(E(M ) )=32THEN1868 

1820 1FEC M ) = > 16380THENPOKEE( M ) , 32 : G0T01858 

1830 R=RND(2):P0KEE(M),32:P0KEECM)+R, 148 

1348 E(M^=E(M>+R 

1850 GOSUB910 

1860 NEXT ".RETURN 

9999 ' > z IRESETRETURNz : RETURN 
































- 00000 - 
** RfiNDOM NUMBER GENERATOR TE9T PROGRAM 1 ** 

10 CLEAR 500:CL5 

15 REM * PROGRRM BY KEITH NEIGHBOUR * 

20 RANDOM 

25 XS=" 

30 PR1NT$128, "ENTER THE REQUIRED RANGE OF RANDOM NUMBERS FROM 1 TO ..*;: INPUT E 

32 PR1NT©328,*1F A FIXED NUMBER OF R.N. SAMPLES ARE REQUIRED" 

34 PRINT: PRINT 'ENTER THE NUMEER ELSE HIT ENTER TO RUN" 

36 Q=0: INPUT Q 

40 DIM CCE) 

50 CLS:T=124:F=B4:G=12B 

B0 FOR N=l TO E:GOSUB 588 

78 PR1NT@T+4*N,N; 

88 NEXT N 

82 FOR T=0 TO L: PRINT©T*128. " >" ; :PR1NT*T*128+6B, ■< " ; ".NEXT T 

85 CS="STOP OR START : ANY KEY (PRINT P, LIST H/L L) ": PRINT ©968. C»; 

87 PRINT ©942, "NO:TIMES: TOTAL" ; 
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90 R=RND(E):N=R: GOSUB 500:T=T+64 

100 CCR)=CCR)+1:Z=CCR"):K=K+1 

102 PRINT ©1005,- 

104 PRINT ©1 005, R; 

106 PRINT © 1009, 2; 

108 PRINT©1014,K; 

110 PRINT ©T+4*R,Z; 

112PRINT©F," -;:PRINT©G," * ; 

113 F=(2*L+1)*64:G=F+60:PRINT©F, "*" ; :PR1NT©G, *»' ; 

115 IF K=Q GOTO 130 

•20 P*=1NKEY*:1F PS-'" GOTO 90 

130 PS=1NKEY*:IF P*=" * GOTO 130 

140 IF P»="L" GOSUB 1000: GOTO 170 

158 IF P*="P" GOSUB 20000: GOTO 170 

160 GOTO 90 

170 IF INKEY*=*" GOTO 170 

180 PRINT ©896, XS ;: PRINT ©960, CS; : GOTO 90 

500 IF N>90 THEN T=404:L=6: RETURN 

510 IF N>75 THEN T =336 : L=5 : RETURN 

520 IF N>60 THEN T=268:L=4: RETURN 

530 IF N>45 THEN T =200 :L=3: RETURN 

540 IF N>30 THEN T=132:L=2: RETURN 

550 IF N>15 THEN T =64 : L= 1 : RETURN 

560 T=-4:L=0: RETURN 

1000 PRINT ©960, XS ; :H=C( 1) 

1010 FOR N=2 TO E 

1020 G=C(N> 

1030 IF G>H THEN H=G 

1040 NEXT N 

1050 PRINT©896, "HIGHEST: ■ ;Hj "FOR" ; 

1060 FOR N=l TO E 

1070 J=C<.N) 

1080 IF J=H THEN PRINT N; 

1090 NEXT M 

1100 L=Cll') 

1110 FOR N=2 TO E 

1120 M=C(N) 

1130 IF M<L THEN L=M 

1140 NEXT N 

1150 PRINT©960, "LOWEST : " ;L; "FOR" ; 

1160 FOR N=l TO E 

1170 J=C(N) 

1180 IF J=L THEN PRINT N; 

1190 NEXT N: RETURN 

20000 DEFINT fl,S,B 

20010 FOR S= 15360 TO 16383 STEP 64 

20020 FOR B=S+S3 TO S+2 STEP -1 

20030 IF PEEK.CBK>32 THEN 20050 

20040 NEXT B 

20050 fi*="":FOR fl=5 TO B 

20060 fi*=fl*+CHR* ( PEEK C fl ) ) 

20070 NEXT fl 

20080 LPR1NT fl* 

2O090 NEXT S 

20100 RETURN 
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** RANDOM NUMBER GENERATOR TEST PROGRAM 2 ** 

10 CLS:DIM CC IB): CLEAR 100 

15 REM * PROGRAM BY KEITH NEIGHBOUR * 

20 SS=STRINGS(.50,128) 

30 RANDOM 

40 PRINT*128, "IF A FIXED NUMBER OF R.N. SAMPLES ARE REQUIRED" : PRINT 

50 PRINT "ENTER THE NUMBER ELSE HIT ENTER TO RUN* 

60 A=0: INPUT A 

70 GOSUB 240 

80 P=l 

90 R=RND( 10) 

100 C<R)=C(R)+1:K-K+1:Z=C(R) 

110 L=S42-R*B4 

120 Q=INT(Z/10)+1 

130 IF Q>P THEN P=P+1: GOSUB 380 

140 M=P*10 

150 PRINT »954,M; 

1S0 PRINT *995,K; 

170 PRINTS 832-R*G4,Z; 

180 N=INT(2/P*S+.5) 

190 PRINT *L, STRING* (IS, 140); 

200 IF K=A GOTO 220 

218 IF 1NKEY*="" GOTO S0 

220 IF INKEY$=°* GOTO 228 

230 GOTO 90 

240 CLS : PRINT *9, "F REQUENCY OF RANDOM NOS 1-10"; 

250 PRINT*73,"( HIT ANY KEY TO STOP OR START )*; 

260 PRINTS 128," FR NOS"; 

270 N= 10 : PRINT* 1SB , N ; CHRSC 174 ) ; 

288 N=9:F0R T=261 TO 773 STEP 64 

298 PRINT*!, N;CHR*( 174); 

308 N=N-1 

310 NEXT T 

320 PRINT*848,CHRS( 170); 

330 FOR T=842 TO 892 STEP 5 

340 PRINT*!, CHR»C 176); 

350 NEXT T 

360 PRIMT*969, "FREQUENCY FOR A TOTAL OF :"; 

378 RETURN 

338 FOR U=l TO 10 

398 Y=C C U ) : N=INT C Y/P*5+ . 5 ) : T =842-U*64 

408 PRINT *T,SS; 

418 PRINT *T,STPING*(N, 140); 

420 PRINT *T- 18, Y; 

430 NEXT U: RETURN 

- OOOOO - 

** ANALOGUE CLOCK USING "PRINT *" FOR GRAPHICS ** 

118 REM * THIS UERSION USES "SET 2" AS PUBLISHED IN PREUIOUS EDITION OF MICRO 80 

* 

120 REM * MEMORY SIZE = 32222 FOR 16K 

130 DEFINTA-F.N-U 

148 P=S4:E=P:T=P:U=24:Q=U:F=U:CLS: PRINT* 128, "ENTER START TIME (H,M,S)" ;: INPUT H8 

. M0 , S0 
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PAGE 35 
158 CLS : PRINT £29 , CHR*( 188) ; CHR*( 128 ) ; STRING*! 2, 140) ; CHR*( 188 ) 
160 PRINT £81 , CHR»( 188 ) ; CHR*( 128 ) ; CHR*( 188 ) 

178 PRINTG93 , CHR*( 191 ) ; CHR*( 128 ) ; CHR*t 191 ) ; 5TR1NGSC 2 , 179 ) 
180 PRINT£1B8,CHR*C 188) 

190 PR1NT£145,CHR*(191);CHRS(128);CHR*( 191) 
200 PRINT £ 172, CHR*( 191) 

210 PRINT£198,CHR*(176);CHR*(128);STR1NG*(3,176) 
220 PRINT£244,STRING*(3,176) 

230 PRINT£252 , CHR*( 191 ) ; CHR*( 128 ) ; CHR*C 191 ) ; CHR*( 128 ) ; CHR*( 191 ) 
248 PRINT£3B8,CHR*( 188 ) ;CHR*( 148) ; CHRSC 143 ) 
2SB PRINT£326 , CHR*t 131 ) ; CHRSC 128 ) ; STRING*( 3, 131 ) 
260 PRINT£372,STR1NG*(3,131) 

278 PRINT£455, CHR*( 191 ) ; CHR*( 179 ) ; CHR*( 191 ) 
280 PRINT £581 , CHR*( 131 ) ; CHR*l 179) ; CHR*( 191 ) 
290 PR1NT£519,STR1NG*(2,140);CHR$( 143) 
300 PRINT£565,STRING*(2, 140);CHR*( 143) 
310 PRINT£648,STRING*(3, 176) 

320 PR1NT£692 , CHR*C 176 ) ; CHR*( 128 ) ; CHR*C 176 ) 
338 PRINT£712,CHR*(191);CHRSC140);CHRSC 191) 
348 PRINT £756, CHRS( 143);CHR*( 140);CHR*t 191) 
358 PRINT £776 , STRING*( 3,131) 
358 PRINT£822,CHR*(131) 

378 PRINT£843, STRINGS*. 2, 131);CHR*C 191) 
388 PR1NT£875,CHR*( 191 ) ;STRING*( 2. 179) 
398 PRINT£915,CHR*C 143) 

488 PRINT£926,CHRS(,191);STRING*(2, 179) 
410 PRINTS>939,STR1NGS(2, 140);CHR*C 143) 
428 PRINT £998, CHRSt 143) ; CHR*C 140) ; CHR*( 143 ) ; 
438 PRINT9542, CHRSt 130); CHRSt 131); 
448 PRlNT£159,CiR*C 148); 



PRINT£369 , CHR*( 131); 
PRINT f«689 „ CNR*( 176 ) ; 
PRINT £863. CHR*(. 140); 
PRINT £653 , CHRSt 176 ) ; 
PRINT£332, CHRSt 131); 



450 PR1NT@233, CHRSt 131); 

460 PRINT £563, CHRSt 131); 

478 PRINT£809 . CHRSt 176 ) ; 

488 PRINT £789, CHRSt 176); 

498 PRINT£523, CHRSt 131 ); 

'588 PRINT £213, CHR*( 131) ; 

518 N=HB*3B+M8*.5:L=M8*6:K=S8*6 

520 Hl=37:Ul=-15:fi=62:B=24:H2=35:U2=-14:H3=29:U3=-18:M=M-.5:GOSUB610 

538 K=K+6 

540 FORGX-IT 0515: NEXT:' ***** THIS TIMING LOOP RJUSTS RCCURfiCY 

550 IFK=>3E3:K=K-360:L=L+6:GOSUB61B 

568 2=K* . 8174553 : C=SINC 2 )*Hl+ft : B=C0St 2 )*U1+B 

570 RESET<E,F,fi,B> 

538 5ET<Fi,B,C,D> 

598 G0SUE678 

688 E=C:F=D: GOT 0538 

818 IFL=>368: L=L-360: F0RQR=1T099: PRINT&0 , CHR*( 23) ; CHRSt 28 ) ; : NEXT : K=K+6 

620 M=«+ . 5 : IFM=360 : 11=0 

638 2=L* . 174553 : N=SIN( 2 ) *H2+Fi : 0=COS C 2 ) *V)2+B 

648 2=M*.8174553:R=5INt2)*H3+fi:S=C05t2)*03+B 

658 RESET<P,Q,R,B> 

668 RESET<T,U,A,B> 

665 K=K+1 

678 SETiA,B,N,0> 

698 SET<fi,B,R,S> 

788 P=N:Q=0: T=R: U=S 

710 RETURN 
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THIS LISTING REPLACES THE LISTING IN LfiST MONTH' S ISSUE. 

7256 FD 21 FE 3F FD ' . 08 EE RF FD 77 00 C9 F3 31 15 

7266 72 21 15 40 36 01 CD C9 01 21 7F 72 E5 21 30 7D 

7276 7E 23 E7 C8 CD 33 00 18 F7 CD 49 00 FE 42 Cft 5ft 

7286 7D FE 52 28 09 CD 45 73 CD F8 73 C3 63 72 FE 4C 

7286 20 08 CD F8 7B CD 49 00 18 C3 FE 4D 20 18 CD C9 

72ftS 81 2R fi4 48 23 23 ED 5B F9 40 B7 ED 52 D2 63 72 

72B6 2R R4 40 C3 88 75 FE 50 20 06 CD 2R 75 C3 63 72 

72C6 FE 56 Cfi 9fi 78 FE 53 Cft 57 75 FE 47 Cft 76 76 FE 

72D6 44 Cfi CI 76 FE 48 Cfi IB 78 FE 46 20 06 CD 46 75 

72E6 C3 63 72 FE 45 Cfi D5 75 FE 43 Cft Cl 79 C3 63 72 

72F6 Cl 79 C3 63 72 D5 11 08 08 DD 7E 00 D6 30 83 30 

7306 01 14 5F Cl 05 C8 C5 EB 29 E5 28 29 Cl 03 EB DD 

731G 23 18 E6 0E 85 86 0fi C5 ftF 8E 11 18 85 98 F2 2C 

7326 73 88 29 17 18 83 29 17 23 BD 28 Fl IF Cl C6 38 

7336 12 IB 8D 20 E2 C9 7E FE 31 D0 36 20 23 18 F7 2fi 

7346 ft4 40 23 23 23 23 7E B7 Cfi E3 73 FD 21 4B 73 FD 

7356 E5 FD 21 7E 73 FD E5 FE 8D C8 FE 8E C8 FE 31 C8 

7366 FE 95 CB FE 3D CB FE 9F C8 FE B4 C8 FE E5 C8 FE 

7376 B6 C8 FE Cfi CB FD El C3 FD El 23 E5 2B 23 7E B7 

7386 28 8C FE 2C 28 08 FE 28 28 84 FE 3fi 38 EF Dl E5 

7335 B7 ED 52 7D 2ft F9 40 B7 ED 52 13 E5 Cl 03 2ft F9 

73ft6 40 D5 E6 87 5F 3E 06 93 32 2ft 72 85 6F D2 B7 73 

73B6 24 E5 Dl 2ft F9 40 ED 53 F9 40 ED B8 Dl 3ft 2ft 72 

73C6 47 IB 3E 20 12 13 '10 FC CD 08 7D El 3ft 2ft 72 85 

73D6 BF 30 81 24 7E FE 2C Cft 88 73 C3 4C 73 CD 56 72 

73E6 ED SB F9 40 23 23 23 23 23 E5 B7 ED 52 El D8 C3 

73F6 4C 73 DD El DD 22 3F ?Z CD C9 01 3E 49 CD 33 00 

7406 3E 3F CD 33 88 3E 28 CD 19 74 CD 58 74 ED 53 28 

7416 72 18 71 CD 33 88 16 00 DD 21 2D 72 D5 CD 49 00 

7426 CD 33 00 Dl FE 01 Cfi 63 72 FE 0D 28 18 FE 88 28 

7436 88 DD 77 80 DD 23 14 18 E3 FD El 18 BB 7fi FE 06 

7446 38 F7 DD 21 2D 72 CD FB 72 C3 ED 53 2B 72 16 00 

7456 3E 4E CD 33 00 3E 3F CD 33 00 3E 20 CD 33 00 16 

7466 88 DD 21 2D 72 D5 CD 49 80 CD 33 00 Dl FE 0D 23 

7476 CC FE 81 Cfi 63 72 FE 88 28 82 18 CE DD 77 88 DD 

7486 23 14 18 El 2fi ft4 48 23 23 ED 4B F8 48 E5 B7 ED 

7436 42 D2 86 77 El 5E 23 56 ED 53 39 72 E5 EB 11 31 

74fi6 72 CD 13 73 21 2D 72 CD 3C 73 ED 5B 28 72 El 72 

74B6 2B 73 23 23 E5 EB 11 36 72 CD 19 73 21 32 72 CD 

74C6 3C 73 2fi A4 40 23 23 23 23 7E 23 B7 20 09 CD 56 

74D6 72 7E B7 28 0D 18 EE 11 CF 74 D5 11 FB 74 D5 C3 

74E6 5D 73 23 7E B7 Cfi 71 77 18 DC 23 10 FD 7E FE 2C 

74F6 28 D7 23 18 02 FD El 86 05 1 1 2D 72 7E 23 FE FF 

7S06 Cfi F8 74 7E 23 EB 4E EB 13 B9 28 DF 18 F5 01 86 

7516 88 B7 ED 42 36 FF 23 11 32 72 86 85 lfi 77 13 23 

7526 18 Fft 18 C9 2ft ft4 40 ED 5B F9 40 IB IB B7 ED 52 

7536 C8 19 22 3B 72 2fi F9' 40 36 08 2B 2B 22 fi4 48 C9 

7546 2fi 3B 72 7C FE 42 D8 22 fi4 48 21 88 80 22 3B 72 

7556 C8 C3 63 72 00 11 04 08 19 7E 23 B7 28 FB EB El 

7566 73 23 72 EB 18 85 7E 23 B7 28 FB 7E 23 B7 28 F6 

7576 7E 23 B7 28 Fl 22 F9 48 22 FB 40 22 FD 40 C3 63 

7586 72 EB 5E 23 56 23 1ft B7 20 F7 13 1ft IB B7 20 Fl 

7536 5E 23 56 EB 01 0fi 00 09 22 28 72 CD 2fi 75 CD F8 

75fi6 7B 21 0ft 00 22 2B 72 CD 45 73 DD 21 BB 75 DD 22 
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75BB 3F 72 C3 8ft 74 CD 46 75 CD 49 00 C3 63 72 0D 48 PftGE 37 

75C6 45 58 2E 20 41 44 44 52 45 53 53 20 3F 20 00 CD 

75D6 C9 01 21 C4 75 CD 76 72 CD 13 7ft 3E 0D D5 CD 33 

7556 00 7C E6 F0 CD 4F 77 7C 56 0F CD 4F 77 7D E6 F0 

75F6 CD 4F 77 7D E6 0F CD 4F 77 3E 20 CD 33 00 3E 3C 

7606 CD 33 00 7E E6 F0 CD 4F 77 7E E6 0F CD 4F 77 3E 

7516 3E CD 33 00 3E 20 CD 33 00 Dl 06 02 11 3D 72 D5 

7626 CD 49 00 Dl FE 01 Cft 63 72 FE 08 28 ftE FE 0ft 20 

7636 03 23 18 ft7 FE 30 38 E7 FE 58 28 96 FE 5B 20 03 

7646 2B 18 98 FE 47 30 D8 D5 CD 33 00 Dl 12 13 10 CF 

7656 11 3D 72 1ft 13 D6 30 FE 10 38 02 D6 07 CD 9ft 76 

7666 4F 1ft D6 30 FE 10 38 02 D6 07 81 77 23 C3 El 75 

7676 21 C4 75 CD 76 72 06 04 3E 20 CD 33 00 21 E6 41 

7686 CD F9 79 06 02 21 E6 41 56 23 5E 7R 18 13 FE 3ft 

7696 30 0B D6 30 CB 27 CB 27 CB 27 CB 27 C9 D6 37 18 

76ft6 F3 CD 94 76 57 7B FE 3ft 30 0D D6 30 82 57 23 D5 

75B6 10 D6 El 6C Dl 62 E9 D6 37 18 Fl C3 63 72 16 00 

76C6 21 32 72 3E 44 D5 CD 33 00 3E 3F CD 33 00 3E 20 

76D6 CD 33 00 Dl D5 CD 49 00 Dl FE 0D 28 23 FE 08 20 

76E6 03 D5 18 57 FE 3ft 30 EC FE 01 Cft 63 72 FE 30 38 

76F6 E3 D5 CD 33 00 Dl 77 23 14 7ft FE 05 30 02 13 D4 

7706 D5 3E 20 CD 33 00 3E 3D CD 33 00 3E 20 CD 33 00 

7716 Dl 7ft B7 20 01 14 DD 21 32 72 CD FB 72 7ft E6 F0 

7726 CD 4F 77 7ft E6 0F CD 4F 77 7B E6 F0 CD 4F 77 7B 

7736 66 0F CD 4F 77 D5 3E 48 CD 33 80 3E 0D CD 33 00 

7746 Dl 3E 30 32 32 72 C3 C4 76 FE 10 D4 68 77 FE 0ft 

7756 30 08 C6 30 D5 CD 33 00 Dl C9 C6 37 D5 CD 33 00 

7756 Dl C3 CB 3F CB 3F CB 3F CB 3F C9 2ft 28 72 ED 5B 

7776 ZB 72 19 22 28 72 El 23 7E 23 B7 28 FB C3 8D 74 

7786 El 2R ft4 40 CD 56 72 23 23 23 23 7E 23 E5 CD BD 

7796 77 El B7 28 EF FE 2C 28 33 FE 22 28 8B 11 91 77 

77ft6 D5 11 Dl 77 D5 C3 5D 73 7E 23 B7 28 D7 FE 22 28 

77B6 Dft FE 80 30 D6 18 Fl ED 4B F9 40 B7 ED 42 D8 El 

77C6 11 80 00 ED 53 2B 72 2ft 3F 72 E9 Dl 7E FE FF 28 

77D6 06 FE 20 28 02 18 B4 E5 01 01 00 23 7E B7 28 08 

77E6 FE 30 30 04 23 03 18 F4 Dl D5 C5 E5 D9 Dl CI 2ft 

77F6 F9 40 E5 B7 ED 42 22 F9 40 22 FB 40 22 FD 40 El 

7806 B7 ED 52 E5 D9 CI ED B0 CD 08 7D El 23 7E FE FF 

7316 28 Bft C3 91 77 C3 63 72 3E 48 CD 33 00 3E 3F CD 

7826 33 00 3E 20 CD 33 00 21 3D 72 06 04 CD 49 00 FE 

7336 08 28 5ft FE 01 Cft 63 72 FE 47 30 F0 FE 30 38 EC 

7846 CD 33 00 77 23 10 E5 21 3D 72 06 02 7E 23 D6 38 

7656 FE 0ft 38 02 D6 07 CD 9ft 76 57 7E 23 D6 30 FE 0ft 

7866 38 02 D6 07 82 57 D5 10 E3 El 6C Dl 62 3E 48 CD 

7676 33 00 3E 20 CD 33 80 3E 3D CD 33 00 3E 20 CD 33 

7886 Q0 ED 5B 20 40 06 05 13 10 FD CD 19 73 3E 0D CD 

7896 33 00 18 84 C3 63 72 86 lfi 0E 41 2ft ft4 40 CD 2B 

78ft6 00 FE 01 Cft 63 72 23 23 23 23 7E 23 ED 5B F9 40 

78B6 E5 ED 52 30 IE El E5 BD El DD 2B DD 2B B7 28 E6 

78C6 FE 22 28 1C FE 83 Cft 73 79 FE FB Cft 73 79 B9 28 

78D6 2ft 18 D7 El 0C 10 C4 CD 56 72 CD 49 00 C3 63 72 

78E6 7E 23 B7 28 CI FE 22 28 06 00 00 00 00 18 Fl 7E 

78F6 23 B7 28 B2 FE 3B 28 B2 C3 B2 78 FE 20 28 ftB 57 

7906 DD 7E 80 FE 5B 30 06 FE 41 38 82 18 9B 7E 23 B7 

7316 28 33 FE 3ft 38 08 FE 41 30 04 IE 20 18 11 FE 5B 

7926 30 F8 FE 2C 28 F4 FE 28 28 F0 FE 29 28 EC 5F E5 

7936 C5 21 00 3C 01 FF 03 7ft ED Bl E2 4E 79 7E BB 20 

7346 F6 CI El 18 16 2B 18 D2 CI El 7ft D5 CD 33 00 Dl 
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08 3E 2C CB 33 00 Dl 7E 23 
B0 78 FE 5B 38 F 1 C3 E2 78 
78 53 54 41 52 54 20 45 4E 
59 20 4E 41 4D 45 20 3F 0D 
20 42 52 45 41 4B 20 3E 20 
20 44 55 52 49 4E 47 20 43 
20 49 2F 4F 2E 0D 00 CD C9 
18 57 CD 49 00 FE 01 CR 63 
38 F0 FE 47 38 EC CD 33 00 
7B 30 DF 2B 04 CD 33 08 18 
CC 79 10 FB C9 7E 23 CD 94 
04 DB 30 18 02 D6 37 81 C9 
FF 79 57 CD FF 79 5F EB C9 
20 CD 33 00 CD 33 00 CD 13 
33 80 CD 13 7R 22 43 72 3E 
36 86 21 45 72 CD 49 88 FE 
BD FE 88 28 32 77 23 CD 33 
77 23 10 FC 3E 0D CD 33 00 
41 72 ED 5B 3F 72 B7 ED 52 
ED 52 38 11 84 18 F8 5F 78 
88 2B 84 18 B8 19 7D 32 26 
12 82 CD 87 02 CI 3E 55 CD 
CB 64 02 18 F9 2R 3F 72 CI 
3E 3C CD 64 82 7B CD 64 82 
64 82 82 57 3R 40 38 EB 84 
ID 28 EF 82 CD 64 82 IE 88 
41 72 B7 ED 52 38 0E El IB 
28 83 5F 18 B8 2R 43 72 3E 
82 7C CD 64 02 CD F8 01 C3 
20 4D 4F 4E 49 54 4F 52 20 
50 41 41 59 20 28 43 29 20 
49 54 20 3C 53 48 49 46 54 
41 43 43 45 53 53 2E 29 42 
4F 47 52 41 4D 20 4C 4F 43 
3R 20 53 54 41 52 54 20 3D 
2C 20 45 4E 44 20 3D 20 58 
5F 7B C3 CC 06 CD C9 01 21 
3C 21 25 7B 01 3D 00 ED E0 

40 22 34 40 RF 32 15 40 21 
C8 FE 1R C2 85 7D ED 73 24 
80 22 2B 72 D5 C5 F5 DD E5 

41 44 59 20 49 41 53 53 45 
01 01 00 50 CD 60 00 21 EB 
CD 60 00 CD 2B 00 B7 28 E5 

01 21 94 73 CD 76 72 21 FR 
E5 DD El CD C4 7C 3E 00 CD 

02 FE D3 28 F9 21 40 3C 0B 
DB 23 10 F6 3R 40 38 E6 04 
80 DD 23 B7 28 15 FE 80 30 
E3 7D FE B7 38 DE 21 40 3C 
CD 35 82 DD 77 88 DD 23 DD 
B7 20 B7 CD 35 02 DD 77 80 
DD 22 F9 40 DD 22 FB 40 DD 
36 E5 D6 80 87 26 7F 6F 5E 
23 13 1R FE 5E 30 8D 77 18 
11 80 7F 7E E6 88 C4 DR 7C 

EB 73 23 72 23 EB C9 DE 2B 
11 CB 3F 81 37 88 EE BB 2R 
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B7 CR RC 
7E 23 B7 

44 2B 20 

00 54 59 
54 4F 20 

41 53 53 

01 21 7B 
72 FE 88 

77 23 C9 
B8 06 B4 
76 4F 7E 
CD F4 79 
CE 13 7R 
7fi 22 41 

20 CB 33 
01 CR 63 
80 IB E9 

21 94 79 
23 11 88 
FE 06 7B 
72 21 45 
64 02 C5 

78 B7 28 
7D 57 CE 
20 2R 7E 
16 00 18 
00 3R 2B 
78 CE 64 
63 72 42 

42 59 20 
31 39 37 
3E 20 5C 
41 53 49 
41 54 49 

20 58 58 
58 58 58 
40 3C 22 

21 C6 7B 
99 7B C9 
72 31 22 
FB E5 C3 
54 54 45 
7B CE 76 
FE BB C2 
3F 22 20 
12 02 CB 
84 CE 35 
20 45 CB 
47 77 23 
18 B9 36 
E5 Dl CD 
DD 23 86 

22 FD 48 

23 5B El 
F6 81 D8 
23 BB 78 
DD 22 26 
R4 48 11 



PRGE 3B 



MICRO-80 

P.O. BOX 213, GOODWOOD, S.A. 5034 AUSTRALIA 
TELEPHONE (08)3818542 

7CFB E2 3F CD 26 ?D 2fl 2B 72 11 F0 3F CD 26 7D CD 08 PAGE 39 

7D06 7D C9 2A A4 40 E5 23 23 23 23 7E B7 20 FB 23 Dl 

7D16 EB 73 23 72 EB 7E B7 20 EC 23 7E B7 C8 2B 18 E5 

7D26 7C CB 3F CB 3F CB 3F CB 3F CD 4B 7D 7C E6 0F CD 

7D36 4B 7D 7D CB 3F CB 3F CB 3F CB 3F CD 4B 7D 7D E6 

7D46 0F CD 4B 7D C9 FE 0A 38 06 D6 09 F6 40 18 02 F6 

7D56 30 12 13 C9 CD C9 01 21 15 40 36 00 FD El DD El 

7D66 Fl CI Dl El ED 7B 24 72 C3 CC 06 E5 21 Efi 71 ED 

7E7S 52 El D0 CD 46 75 RF 32 15 40 3E 07 C3 F4 IF C5 

7D86 01 0F 00 10 FE 0D 20 FB CI C9 42 41 53 49 43 20 

7D96 4D 4F 4E 49 54 4F 52 20 56 45 52 2E 20 31 2E 32 

7DA6 20 20 43 4F 4D 4D 41 4E 44 20 20 4C 49 53 54 20 

7DB6 3R 0D 2D 2D 2D 20 53 45 4C 45 43 54 20 46 55 4E 

7DC6 43 54 49 4F 4E 20 21 21 21 20 2D 2D 2D 0D 42 20 

7DD6 2D 20 52 45 54 55 52 4E 20 54 4F 20 42 41 53 49 

7DE6 43 0D 52 20 2D 20 52 45 4E 55 4D 42 45 52 0D 4C 

7DF6 20 2D 28 4C 4F 41 44 20 42 41 53 49 43 20 50 52 

7E06 4F 47 52 41 4D 0D 4D 20 2D 20 4D 45 52 47 45 28 

7E16 42 41 53 49 43 20 50 52 4F 47 52 41 4D 0D 50 20 

7E2S 2D 20 50 52 4F 54 45 43 54 20 50 52 4F 47 52 41 

7E36 4D 0D 56 20 2D 20 4C 49 53 54 20 56 41 52 49 41 

7E46 42 4C 45 53 20 55 53 45 44 20 49 4E 20 50 52 4F 

7E56 47 52 41 4D 0D 53 20 2D 20 52 45 53 54 4F 52 45 

7E66 20 50 52 4F 47 52 41 4D 0D 47 20 2D 20 47 4F 54 

7E7S 4F 20 48 45 58 20 4C 4F 43 41 54 49 4F 4E 0D 44 

7E86 28 2D 20 44 45 43 2E 20 54 4F 20 48 45 58 2E 20 

7E96 43 4F 4E 56 45 52 53 49 4F 4E 0D 48 20 2D 20 48 

7EA6 45 58 2E 20 54 4F 20 44 45 43 2E 20 43 4F 4E 56 

7EB6 45 52 53 49 4F 4E 0D 46 20 2D 20 43 41 4E 43 45 

7EC6 4C 28 50 52 4F 54 45 43 54 49 4F 4E 0D 45 20 2D 

7ED6 20 45 44 49 54 20 4D 45 4D 4F 52 59 0D 43 20 2D 

7EE6 20 43 4F 50 59 20 4D 45 4D 4F 52 59 28 54 4F 20 

7EF6 54 41 50 45 0D 00 80 00 00 04 50 16 53 16 56 16 

- 00000 - 
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********** rpn CALCULATOR ******** 

Give your computer a\ 1 the power of a $400 

REOERSE POLISH NOTATION CALCULATOR ONLY $19.95 

This program simulates all the functions on the HP 97 calculator. Even more -1 
you can see all the registers on the screen all the time. Once you have used 
this program you will really understand how RPN works. 

The program runs in single or double precision, at your discretion. In double] 
precision you have 16 DIGIT ACCURACY, that's much better than the original 
calculator itself! M 
Level 2/16K 
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ROM THE DflLEKS 
Level 2 game, written by none c 


Peter 



ESCfiPE FROM THE DALEKS offers you all the excitement and thrills of helping Dr 
Who to escape from a whole mess of trouble with his eternal enemies. This 

game runs in real time, offers continuously variable levels of play from Easy 
to Utterly Impossible, and comes ready to load, on cassette, complete with 
insults and mediocre messages of praise. Guaranteed to offer hours of fun for 
young and old alike, as the game levels are automatically adjusted after each 
game, ensuring that the player is always going to have to work very hard to 
win ! 

The regular price for this program will be S15.80, however, as a 

SPECIAL OFFER to subscribers, all orders postmarked APRIL 21st or earlier. 

will be processed at $12.58 (which saves you the cost of tnis edition of 

MICRO-80"). 

So DON'T DELAY - order your copy today. You' II need all the practice you can 
get if you' re going to beat your mates! 
Level 2/1BK 



*********** SPECIAL OFFER ********** 
BMON ON CASSETTE ONLY 518.80 (. SflUE 55.00) 

This is the Utility program featured in the February, March and April issues. 
The complate program is available NOW, on cassette. Each cassette comes 

complete with full documentation and contains the 1BK, 32K and 48K versions. 

HARD COPY LISTING of the ASSEMBLED SOURCE CODE ONLY 55.00 

Order before April 21st and obtain these special prices. 
Level 2/16K 



»******»** RNNOUNC1NG TOUCHTYPE ******** 

Learn ta touch type on your ' 80. Cassette with 20 lessons - yes that' s right 
28 LESSONS ONLY 518. S5 



TOUCHTYPE takes you from a raw beginner to a competent touch typist, eas i 1 q 
and en joyably. Speed up your program entry. Learn to input through the 

keyboard without looking at the keys. 
Level 2/4K. 
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********** SUBSCRIPTION APPLICATION ********** 
To: MICRO-80, PO BOX 213, GOOBWOOD, SA 5034. Phone :C 08) 381 8542 

Please send me: 

- CURRENT ISSUE S2.50 

- CASSETTE - SINGLE ISSUE S3 . 50 

- 12 MONTH SUBSCRIPTION, MAGAZINE ONLY S24.00 

- 12 MONTH SUBSCRIPTION, MAGAZINE PLUS CASSETTE . S60.00 
I Make cheques payable to MICRO-80) 



NAME: . . . 
ABBRESS: 



.POST COBE. 






************************************** 
MICRO-80 PROBUCTS MICRO-80 PROBUCTS MICRO-80 PROBUCTS MICRO- 90 PROBUCTS 

********** ORBER FORM ********** 
To MICRO-80 PROBUCTS, P.O. BOX 213, GOOBWOOB, SA 5034 
Please send me:- 

LEARN1NG LEUEL II *16 . 35 

TOUCHTYPE S19.95 

BMON - CASSETTE 110. 80 | 

BMON - SOURCE LISTING S 5 . 80 

RPN CALCULATOR S13 . 35 

ESCAPE FROM THE BALEKS S12. 50 

NOTE: Add $8.50 postage and packing for each program, SI. 20 for Learn inq Level 
II. 

Please make cheques and Money Orders payable to MICRO-80. 

NAME : 

ADBRESS: 



POST COBE 

************************************** 
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TEMPLfiTE - see page IB 
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It's Here At Last . . . 




Written by the author of your Level I Users Manual. LEARNING LEVEL II picks right up where the Level I 
Manual leaves off. It also supplies the changes needed to make the Level I Manual compatible with your 
Level II TRS-80. 

LEARNING LEVEL II covers all Level II BASIC beyond Level I. plus much more. It shows you how to use 
the Editor, explains what the many error messages are really saying, and leads you thru conversions of 
Level I programs to Level II. 

Dual cassettes, printers, the Expansion Interface with clock and other features are explained in the same 
easy-to-learn style that made the Level I Manual famous. LEARNING LEVEL II was created specifically 
for your Level II TRS-80! 
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